WScript.Echo Now() Set loCon = Createobject("AdoDb.Connection") Set loCmd = Createobject("Adodb.Command") loCon.ConnectionString="Provider=VFPOLEDB;Data Source=D:\Project9\Parse\Data\tmp.dbc" loCon.CursorLocation= 3 'adUseClient loCon.Open() loCmd.ActiveConnection=loCon loCmd.CommandText="insert into Test (f1, f2) values (123,?)" Set loParm = loCmd.CreateParameter("f2") loParm.Type = 135 loParm.Value = Now() loCmd.Parameters.Append( loParm ) loCmd.Execute() loCon.Close