D
duha
I get this "Run-Time error '13': Type Mismatch" when I run the sample code
below. The debugger highlight the line "Set MSHFlexGrid1.DataSource = rs"
Any ideas? I am using VB6.
Thanks,
duha
----------------------
Option Explicit
Public db As Database
Public rs As Recordset
Public SQL As String
----------------------
Private Sub Form_Load()
Set db = OpenDatabase("C:\VB98\NewDB.MDB")
SQL = "Select Fiches.English from [Fiches];"
Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
Set MSHFlexGrid1.DataSource = rs
End Sub
below. The debugger highlight the line "Set MSHFlexGrid1.DataSource = rs"
Any ideas? I am using VB6.
Thanks,
duha
----------------------
Option Explicit
Public db As Database
Public rs As Recordset
Public SQL As String
----------------------
Private Sub Form_Load()
Set db = OpenDatabase("C:\VB98\NewDB.MDB")
SQL = "Select Fiches.English from [Fiches];"
Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
Set MSHFlexGrid1.DataSource = rs
End Sub