Found it,
You just have to set some bytes to 0. So I made a copy of the dbf and set the bytes to 0, and opend it with ado.
Make sure your copied file does not exceed 8 characters!!
example VB6 code:
Private Sub Command1_Click()
Dim fso As FileSystemObject
Dim iFileNr As Integer
Dim sFileName As String
Dim iNdx As Integer
Set fso = New FileSystemObject
fso.CopyFile "D:\xxxx\DBF\VB_Project\SYMLIST.dbf", _
"D:\xxxx\DBF\VB_Project\SYMLIST1.dbf"
sFileName = "D:\xxxx\DBF\VB_Project\SYMLIST1.dbf"
iFileNr = FreeFile
'open copies dbf file
Open sFileName For Binary As iFileNr
'set byte 13 to 32 to 0
For iNdx = 13 To 32
Put #iFileNr, iNdx, CByte(0)
Next
'close copies dbf file
Close #iFileNr
Set fso = Nothing
'connect ado object to dbf file bestanden => files
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE-bestanden; Initial Catalog=D:\xxxx\DBF\VB_Project"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "SYMLIST1"
Adodc1.Refresh
'set your datagrid datasource property to adodc1 on your form
DataGrid1.Refresh
End Sub