VB Code:
Dim dg As DataGrid
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnect As String
dg = New DataGrid()
rs = New ADODB.Recordset()
strConnect = "DSN=Rebates;UID=;PWD="
cn = New ADODB.Connection()
cn.Open(strConnect)
cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs = New ADODB.Recordset()
rs.Open("tempchecktable", cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdTable)
dg.DataSource = rs
dg.Refresh()
rs.Close()
cn.Close()