Unanswered: Problem with VB code after conversion Access 97 to Access 2003
I have a problem with my VB 6 code after converting my Access 97 to Access 2003.
Before this conversion everything was working well. This was my code:
Set oCn = New ADODB.Connection
Set oRs = New ADODB.Recordset
Set ClosureRs = New ADODB.Recordset
sConnect = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=\\AP721\disk_d\MIS_Portal\Functions\portal.mdb"
oRs.Open "select caption_fr from clotures order by id desc", oCn, adOpenKeyset, adLockOptimistic
cboClosureDatesIntra.Text = oRs("Caption_fr")
Do Until oRs.EOF
ClosureRs.Open "select Statistics.Caption_FR, Statistics.Caption_NL, Statistics.Last_Update FROM Clotures INNER JOIN Statistics ON Clotures.ID = Statistics.Cloture_Id WHERE Clotures.Caption_FR='" & cboClosureDatesIntra.Text & "' order by statistics.caption_fr", oCn, adOpenKeyset, adLockOptimistic
Set grdDataGridIntra.DataSource = ClosureRs
This was working well with my Access 97 database. It gave some results.
After I did the conversion I changed the provider to
and then I get an empty grid...
What is wrong here?