when i run . i am getting error Object variable not set . let me know some comment please .
Code:
Option Explicit
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql$
Dim m_lgcount As Integer
'con.ConnectionString = ConString
con.Open ConString
'cmd.ActiveConnection = con
rs.CursorLocation = adUseClient
'cmd.CommandText = "select * from ic_itembarcode"
sql = "select * from ic_itembarcode"
rs.Open sql, con, adOpenDynamic, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
m_lgcount = rs.RecordCount
'MsgBox (m_lgcount)
'Set DataGrid1.DataSource = rs
Set MSFlexGrid1.DataSource = rs
End If
End Sub