Visual Basic - ado con tablas dbf y campos fecha

tengo una coneccion con el proveedor de datos de visual foxpro VFPOLEDB

Global conecta as adodb.connection

global ventas as adodb.recordset
global Graba as adodb.command

Public Sub ConeccionLocal()

StrCnn1 = "Provider=VFPOLEDB.1;Data Source=N:\pos;Password='';Collating Sequence=MACHINE"
Set Conecta = New ADODB.Connection
Conecta.Open StrCnn1

End Sub

Y cuando creeo un recordset me da un error al momento de addnew.

Public Sub AbreEventos(codigo As String)
ConeccionLocal
Set ventas = New ADODB.Recordset

With ventas
.ActiveConnection = Conecta
.Source = "Select * from evento where plu='" + Trim(ElPlu) + "'"
.CursorType = adOpenKeyset
.LockType = adLockBatchOptimistic
.CursorLocation = adUseServer
.Open
End With
vetas.addnew ' da error en esta linea. sin embargo las consultas si funcionan

End Sub

si uso un adodb.command me da error al grabar la fecha con # o con { o con ' como sea que la ponga me da error ya sea sintax error o data type mitsmatch

Public Sub grabar()
Set graba = New ADODB.Command

With graba
.ActiveConnection = Conecta
.CommandText = " insert into clientes (nombre,fecha) values ( 'juan' , #01/01/2006# )"
.Execute
End With

End Sub

si alguien me puede ayudar estare simpre agradecido.

Saludos.