Option Explicit

Dim conn As ADODB.Connection

Private Sub btnCreateTable_Click()
   Dim ss() As String
   ss() = Split("[Theme],[Technology],[Equipment],[Region],[Owner],[Owner_outgoing_number],[Declared_Region],[Primechanie],[Sostoyanie_zayavki],[Nomer_Reestra],[Data_Reestra],[Ispolnitel]", ",")
   Dim i As Long
   Dim s As String
   s = "CREATE TABLE [BD] (" & ss( 0 ) & " Char(10)"
   For i =  1  To UBound(ss)
      s = s & "," & Trim(ss(i)) & " Char(10)"
   Next
   conn.Execute s & ")"
End Sub

Private Sub btnTest_Click()
   Dim rs As New ADODB.Recordset
   Dim rs2 As New ADODB.Recordset
   Dim f As ADODB.Field
   rs.Open "SELECT * FROM Bd", conn, adOpenStatic, adLockReadOnly
   For Each f In rs.Fields
      rs2.Open "SELECT " & f.Name & " FROM BD", conn
      Debug.Print "Open field " & f.Name; " success!"
      rs2.Close
   Next
End Sub

Private Sub Form_Load()
   Set conn = New ADODB.Connection
   conn.CursorLocation = adUseClient
   conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB1.mdb;Persist Security Info=False"
   conn.Open
End Sub

set rs = new ADODB.Recordset
rs.open .....
set grid.DataSource = rs