CLEAR
LOCAL oConn as  "adodb.connection" 
LOCAL oRS as  "adodb.recordset" 
oConn = CREATEOBJECT('adodb.connection')
oRS = CREATEOBJECT('adodb.recordset')
cConnStrng = ;
    "Provider=vfpoledb;Data Source=c:\ado\;SourceType=DBF" 
oConn.Open(cConnStrng)

oRS = oConn.Execute( "create table ado  free (num n(10 ), tit c( 190 ), tit2 c( 200 ), tit3 c( 100 ))")

SET DEVICE TO screen
FOR i= 1  TO  5000000 
  oRS = oConn.Execute( "insert into ado (num,tit) values (RECNO(),SYS(2015 ))")
ENDFOR

oRS.Close()
oConn.Close()