Ошибка VB.NET: «Свойство ConnectionString не было инициализировано».

Question

Dim Current As String
Current = Directory.GetCurrentDirectory()
con.ConnectionString = "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data Source = " & Current & "\SchoolMaticsDatabase.mdb"
con.Open()
TabSelect()
con.Close()

Private Sub TabSelect()
        Select Case TabControl1.SelectedIndex
            Case Is = 0
                TabDay = "Monday"
            Case Is = 1
                TabDay = "Tuesday"
            Case Is = 2
                TabDay = "Wednesday"
            Case Is = 3
                TabDay = "Thursday"
            Case Is = 4
                TabDay = "Friday"
            Case Is = 5
                TabDay = "Saturday"
            Case Is = 6
                TabDay = "Sunday"
        End Select
        ds.Clear()
        sql = "SELECT [Forename],[Surname],[Subject Speciality 1],[Subject Speciality 2],[Subject Speciality 3],[Subject Speciality 4],[Subject Speciality 5],[Subject Speciality 6]," & StartTime & "," & EndTime & ",[Spec1],[Spec2],[Spec3],[Spec4],[Spec5],[Spec6] FROM [Staff] WHERE " & TabDay & " LIKE 'T'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "SchoolMaticsDatabase")
End Sub

da.fill (ds, "SchoolMaticsDatabase") >>> В этой строке кода возникают ошибки.

Если индекс табуляции изменяется, sub TabSelect ()называется также.Другое дело, что программа проверяет день недели и правильно отображает вкладку, соответствующую этому дню.В понедельник этот код работал нормально, как только он появился во вторник, эта ошибка появилась.

Answer 1

Попробуйте передать conn в качестве параметра в функцию TabSelect ().TabSelect(ByRef OleDbConnection conn) Это может быть проблемой области видимости, так как вы играете с глобальными переменными