Public Sub ShowDB()
Dim MyRec As Recordset
Dim ConnStr As String
Dim i As Integer
Dim j As Integer
On Error GoTo MyError
Set MyRec = MyCon.OpenRecordset( "SELECT * FROM "  & UserTable, dbOpenDynaset)
 If MyRec.RecordCount <  1  Then GoTo MyError
MyRec.MoveFirst
Cells( 3 ,  4 ) = MyRec.Fields.Count
Cells( 4 ,  4 ) = MyRec.RecordCount
 
 For j =  0  To MyRec.Fields.Count -  1 
 Cells( 10 , j +  1 ) = MyRec.Fields(j).Name
 Next j
Range( "A11" ).CopyFromRecordset MyRec
MyRec.Close
Set MyRec = Nothing
Exit Sub

MyError:
MyRec.Close
Set MyRec = Nothing
MsgBox  "Selected table `"  & UserTable &  "` is empty" , ,  "Information" 
End Sub

Public Sub ShowDB()
Dim MyRec As Recordset
Dim i As Integer
Dim j As Integer
Dim query As String
query =  "SELECT * FROM "  & UserTable
Set MyRec = MyCon.OpenRecordset(query, dbOpenDynaset)
 If MyRec.RecordCount <  1  Then GoTo MyError
MyRec.MoveFirst
Cells( 3 ,  4 ) = MyRec.Fields.Count
Cells( 4 ,  4 ) = MyRec.RecordCount
 
 For j =  0  To MyRec.Fields.Count -  1 
 Cells( 10 , j +  1 ) = MyRec.Fields(j).Name
 Next j

 Do While Not MyRec.EOF
  For j =  0  To (MyRec.Fields.Count -  1 ) Step  1 
  Cells( 11 ,  11 ) = MyRec.Fields(j).Value
  Next
 i = i +  1 
 MyRec.MoveNext
 Loop
 
MyRec.Close
Set MyRec = Nothing
Exit Sub

MyError:
MyRec.Close
Set MyRec = Nothing
MsgBox  "Selected table `"  & UserTable &  "` is empty" , ,  "Information" 
End Sub