Ошибка: попытка присвоить значение Null переменной, не принадлежащей к типу Variant

Option Compare Database
 
Private Sub Browse_Click()
    Dim sk As FileDialog
    Set sk = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With sk
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                Me.Cels_uz_avotu.Value = vrtSelectedItem & ";"
                If Right(vrtSelectedItem, 5) = ".xlsx" Then
                Me.Papildus_ipasibas.Value = "Extended Properties = Excel 8.0;"
                Else: Me.Papildus_ipasibas.Value = ""
                End If
        Next vrtSelectedItem
            IzpilditSQL.Enabled = True
            Metadati.Enabled = True
            Tabulas.Visible = False
            Lauki.Visible = False
    Else
    End If
 End With
 Set sk = Nothing
End Sub
 
 
Private Sub IzpilditSQL_Click()
 Call Rezultatu_tab( _
          Forms("Form1").Controls("Datu_gadnieks").Value, _
          Forms("Form1").Controls("Cels_uz_avotu").Value, _
          Forms("Form1").Controls("Papildus_ipasibas").Value & " ", _
          Forms("Form1").Controls("SQL_vaicajums").Value)
End Sub
Public Sub Rezultatu_tab(a As String, b As String, c As String, d As String)
 
   Dim savienojums_a As ADODB.Connection
   Set savienojums_a = New ADODB.Connection
   Dim komanda_a As ADODB.Command
   Set komanda_a = New ADODB.Command
   Dim rakstu_kopa_a As ADODB.Recordset
   Dim teksta_rinda_sav As String
   Dim teksta_rinda_SQL As String
 
   
   teksta_rinda_sav = "Provider = " & a & "Data Source =" & b & c
   savienojums_a.ConnectionString = teksta_rinda_sav
   savienojums_a.Open
   teksta_rinda_SQL = d
   Set komanda_a.ActiveConnection = savienojums_a
   komanda_a.CommandText = teksta_rinda_SQL
   Set rakstu_kopa_a = komanda_a.Execute(Options:=adCmdText)
 
  
   Dim savienojums_j As ADODB.Connection
   Set savienojums_j = New ADODB.Connection
   Dim katalogs As ADOX.Catalog
   Set katalogs = New ADOX.Catalog
 
 
   Set savienojums_j = CurrentProject.Connection
   Set katalogs.ActiveConnection = savienojums_j
 
   
   Dim tabula_j As ADOX.Table
   Dim kolona_j As ADOX.Column
  Dim tabula As ADOX.Table
 
  Dim mm As Integer
  Dim i As Integer
  mm = 0
  i = 0
 
For Each tabula In katalogs.Tables
      If katalogs.Tables.Item(i).Name = "Rezultati" Then
         mm = 1
      End If
      i = i + 1
  Next tabula
  If mm = 1 Then
    
     MsgBox Prompt:="Tabula Rezultati jau eksiste!"
     Exit Sub
End If
 
  
  Set tabula_j = New ADOX.Table
  tabula_j.Name = "Rezultati"
  katalogs.Tables.Append tabula_j
 
 
  Dim lauks_a As ADODB.Field
  For Each lauks_a In rakstu_kopa_a.Fields
      Set kolona_j = New ADOX.Column
      With kolona_j
        .Name = lauks_a.Name
        .Type = lauks_a.Type
      End With
      katalogs.Tables("Rezultati").Columns.Append kolona_j
  Next
  
 
Dim rakstu_kopa_j As New ADODB.Recordset
  rakstu_kopa_j.Open "Rezultati", savienojums_j, adOpenKeyset, _
                     adLockOptimistic
 
 
  Dim j As Integer
  Dim lauks_j As ADODB.Field
 
  
Do Until rakstu_kopa_a.EOF
    rakstu_kopa_j.AddNew
    j = 0
    For Each lauks_a In rakstu_kopa_a.Fields
      rakstu_kopa_j.Fields.Item(j) = lauks_a.Value
      j = j + 1
    Next
    rakstu_kopa_j.Update
    rakstu_kopa_a.MoveNext
  Loop
  
 
  Call Veidot_formu(rakstu_kopa_a)
 
 
Set savienojums_a = Nothing
Set savienojums_j = Nothing
End Sub
 
Public Sub Veidot_formu(rakstu_kopa As ADODB.Recordset)
    Dim mana_forma As Form
    Dim ctlLabel, ctlText, ctlButton1, ctlButton2, ctlButton3 As Control
    Dim intDataX, intDataY As Integer
    Dim intLabelX, intLabelY As Integer
    Dim i, f As Integer
    Dim lauks As ADODB.Field
    
 
    For f = 0 To CurrentProject.AllForms.Count - 1
      If CurrentProject.AllForms.Item(f).Name = "Rezultati" Then
        DoCmd.DeleteObject acForm, "Rezultati"
        Exit For
      End If
    Next f
    
 
    Set mana_forma = CreateForm
    mana_forma.RecordSource = "Rezultati"
    
 
    i = 0
    intLabelX = 100
    intLabelY = 100
    intDataX = 2000
    intDataY = 100
    
 
    For Each lauks In rakstu_kopa.Fields
    Set ctlText = CreateControl(mana_forma.Name, acTextBox, , "", lauks.Name, _
        intDataX, intDataY + i)
    Set ctlLabel = CreateControl(mana_forma.Name, acLabel, , _
         ctlText.Name, lauks.Name & ":", intLabelX, intLabelY + i)
    i = i + 500
    Next
 
 
   Set ctlButton1 = CreateControl(mana_forma.Name, acCommandButton, , , "", _
        4150, 1200, 1400, 460)
        ctlButton1.Caption = "Nakamais"
        ctlButton1.Name = "Next"
        ctlButton1.FontSize = 10
        ctlButton1.FontBold = True
        ctlButton1.OnClick = "Next"
        
 
        Set ctlButton2 = CreateControl(mana_forma.Name, acCommandButton, , , "", _
        4150, 2000, 1400, 460)
        ctlButton2.Caption = "Ieprieksejais"
        ctlButton2.Name = "Previous"
        ctlButton2.FontSize = 10
        ctlButton2.FontBold = True
        ctlButton2.OnClick = "Previous"
        
        
        Set ctlButton3 = CreateControl(mana_forma.Name, acCommandButton, , , "", _
        4150, 2700, 1400, 460)
        ctlButton3.Caption = "Iziet"
        ctlButton3.Name = "Close"
        ctlButton3.FontSize = 10
        ctlButton3.FontBold = True
        ctlButton3.OnClick = "Close"
        
 
    mana_forma.RecordSelectors = False
    mana_forma.NavigationButtons = False
    mana_forma.DividingLines = False
    mana_forma.AllowDeletions = False
    mana_forma.AllowAdditions = False
    
 
    DoCmd.Save acForm, "form1"
    DoCmd.Close acForm, "form1"
    
 
    DoCmd.Rename "Rezultati", acForm, "form1"
    
 
    DoCmd.OpenForm "Rezultati", acNormal
    
End Sub
 
Private Sub Metadati_Click()
 
 
 
  Tabulas.Visible = True
  Lauki.Visible = True
   
 
Dim a, b, c As String
    a = Forms("Form1").Controls("Datu_gadnieks").Value
    b = Forms("Form1").Controls("Cels_uz_avotu").Value
    c = Forms("Form1").Controls("Papildus_ipasibas").Value
  
 
 Dim savienojums_a As ADODB.Connection
 Set savienojums_a = New ADODB.Connection
 Dim teksta_sav As String
 teksta_sav = "Provider = " & a & "Data Source =" & b & c
 
 savienojums_a.ConnectionString = teksta_sav
 savienojums_a.Open
    
 
 Dim katalogs As ADOX.Catalog
 Set katalogs = New ADOX.Catalog
 Set katalogs.ActiveConnection = savienojums_a
 Dim tabula As ADOX.Table
 Dim i As Integer
  
 If Me.Tabulas.ListCount > 0 Then
    Do Until Me.Tabulas.ListCount = 0
    Me.Tabulas.RemoveItem i
 Loop
 End If
 
 If Me.Lauki.ListCount > 0 Then
     Do Until Me.Lauki.ListCount = 0
     Me.Lauki.RemoveItem i
 Loop
 End If
 
 
For i = 0 To katalogs.Tables.Count - 1
 If katalogs.Tables.Item(i).Type = "TABLE" Then
      Forms("Form1").Controls("Tabulas").AddItem Item:=katalogs.Tables.Item(i).Name
End If
 Next i
 
 
Set savienojums_a = Nothing
 
End Sub
 
 
Private Sub Tabulas_Change()
 
 
 Dim a, b, c As String
    a = Forms("Form1").Controls("Datu_gadnieks").Value
    b = Forms("Form1").Controls("Cels_uz_avotu").Value
    c = Forms("Form1").Controls("Papildus_ipasibas").Value & ""
 
 
  Dim savienojums_a As ADODB.Connection
  Set savienojums_a = New ADODB.Connection
  Dim teksta_rinda_sav As String
  teksta_rinda_sav = "Provider = " & a & "Data Source =" & b & c
 
  savienojums_a.ConnectionString = teksta_rinda_sav
  savienojums_a.Open
  
 
  Dim katalogs As ADOX.Catalog
  Set katalogs = New ADOX.Catalog
  Set katalogs.ActiveConnection = savienojums_a
  Dim tabula As ADOX.Table
  Dim i As Integer
  Dim j As Integer
  
  If Me.Lauki.ListCount > 0 Then
    Do Until Me.Lauki.ListCount = 0
    Me.Lauki.RemoveItem i
  Loop
  End If
  
  Dim TabName As String
  TabName = Me.Tabulas.Value
  
 
  For j = 0 To katalogs.Tables(TabName).Columns.Count - 1
      Forms("Form1").Controls("Lauki").AddItem katalogs.Tables(TabName).Columns(j).Name
  Next j
 
 
  Set savienojums_a = Nothing
 
  End Sub