hey tried it out but wont display data any ideas? here is the code.
Option Explicit
Dim ManufInfoRSDataGrid As ADODB.Recordset
Dim CustInfoRSDataGrid As ADODB.Recordset
Dim ApptsRSDataGrid As ADODB.Recordset
Private Sub Form_Load()
Set CustInfoRSDataGrid = New ADODB.Recordset
Set ApptsRSDataGrid = New ADODB.Recordset
Set ManufInfoRSDataGrid = New ADODB.Recordset
CustInfoRSDataGrid.Open "SELECT * FROM [Customer Info]", mdiDBMain.DBConn, adOpenStatic, adLockBatchOptimistic
ApptsRSDataGrid.Open "SELECT * FROM Appointments", mdiDBMain.DBConn, adOpenStatic, adLockBatchOptimistic
ManufInfoRSDataGrid.Open "SELECT * FROM [Manufacturer Info]", mdiDBMain.DBConn, adOpenStatic, adLockBatchOptimistic
End Sub
Private Sub Form_Resize()
DataGrid1.Width = Me.Width - 25
DataGrid1.Height = Me.Height - 2175
End Sub
Private Sub Form_Unload(Cancel As Integer)
CustInfoRSDataGrid.Close
ApptsRSDataGrid.Close
ManufInfoRSDataGrid.Close
Set CustInfoRSDataGrid = Nothing
Set ApptsRSDataGrid = Nothing
Set ManufInfoRSDataGrid = Nothing
mdiDBMain.mnuDBView.Enabled = True
End Sub
Public Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Set DataGrid1.DataSource = CustInfoRSDataGrid
Case 1
Set DataGrid1.DataSource = ApptsRSDataGrid
Case 2
Set DataGrid1.DataSource = ManufInfoRSDataGrid
End Select
Me.DataGrid1.Refresh
End Sub
