Visual Basic - error 424

Dim PIN As String

Public DataPAD As String

Public master As String

Public Adodc1DATA As String

Public Adodc1Con As String

Public scr As String

Private Sub Form_Initialize()

    master = "server"

End Sub

Private Sub Form_Load()

    AbreData

    Label1.Caption = Date

    Label2.Visible = True

    Label3.Visible = True

    Command1.Enabled = True

    Command2.Enabled = True

End Sub

Public Sub AbreData()

    DataPAD = App.Path & "\AdministracionAAA.MDb"

    Adodc1DATA = "Provider=Microsoft.Jet.OLEDB.4.0"

    Adodc1Con = "data source=" & App.Path & "\AdministracionAAA.MDb"

    scr = "PROVIDER=Microsoft.jet.OLEBD.4.4;"

    scr = scr & "Data Source= " & Inicio.DataPAD & ";"

    DataEnvironment1.ConeccionAAA.ConnectionString = Inicio.scr

    Dim Tabla1 As String

    Dim Tabla2 As String

    Dim Tabla3 As String

    Dim Tabla4 As String

    Dim Tabla5 As String

    Dim Tabla6 As String

    Dim Tabla7 As String

    Dim Tabla8 As String

    Dim Tabla9 As String

    Dim Tabla10 As String

    Dim Tabla11 As String

    Dim Tabla12 As String

    Dim Tabla13 As String

    Tabla1 = "Caja"

    Tabla2 = "Categoria"

    Tabla3 = "FechaCerrada"

    Tabla4 = "Socio"

    Tabla5 = "Mensual"

'    Tabla6 = "variableofba"

'    Tabla7 = "Recibos"

'    Tabla8 = "Formadepago"

'    Tabla9 = "Operaciones"

'    Tabla10 = "Mespago"

'    Tabla11 = "Rubro"

'    Tabla12 = "Rubrocuota"

'    Tabla13 = "Variable"

    Data1.DatabaseName = DataPAD

    Data1.RecordSource = Tabla1

    Data1.Refresh

'    Data2.DatabaseName = DataPAD

'    Data2.RecordSource = Tabla2

'    Data2.Refresh

'    Data3.DatabaseName = DataPAD

'    Data3.RecordSource = Tabla3

'    Data3.Refresh

'    Data4.DatabaseName = DataPAD

'    Data4.RecordSource = Tabla4

'    Data4.Refresh