Visual Basic - creacion de dbf en tiempod e ejeucion

alguien puede ayudarme en el error porfavor memanda error de tipo y tengo agregada la rferencia

Private Sub Command1_Click()
Dim tbl As New ADOX.Table
Dim cat As New ADOX.Catalog

cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\wverdugo\Escritorio\proyecto nuevo;" & _
"Extended Properties=dBase IV;"

tbl.Name = "Catalogo"
tbl.Columns.Append "Codigo", adChar, 8
tbl.Columns.Append "Titulo", adChar, 75
tbl.Columns.Append "Breve", adChar, 2
cat.Tables.Append tbl
Set cat = Nothing

gracias de ante manos.

Sustituye "adChar" por "adWChar"

hola muchas gracias,gracias me resulto

sabes que tengo que pedirte otro favor a ver si puedes ayudarme te cuento tengo un select en el cual me traigo los datos de una base de dato sql servers y eso datos ahora tengo que ingresarlos en dbf que acabo de crear con el botón
¿tu sabes como hacer este tipo de ingreso en la otra base de dato DBF si puedes ayudarme te lo agradecería mucho mas ADIOS

con un bucle

Supogamos q "rsSQL" es un recordset en el cual tines los datos del SQLServer

'============================================================
Set rs = New ADODB.Recordset
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dbf;Extended Properties=dBASE IV;User ID=Admin;Password="
rs.Source = "select * from Catalogo"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open

rsSQL.MoveFirst
Do While Not rsSQL.EOF
rs.AddNew
rs.Fields("Codigo") = rsSQL(0) ' o el campo q desees
rs.Fields("Titulo") = rsSQL(1)
rs.Fields("Breve") = rsSQL(2)
rsSQL.MoveNext
Loop
rs.Update
Set rs = Nothing
=========================================================