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") >>>이 코드 줄에는 오류가 발생합니다.

탭 인덱스가 변경되면 TabSelect() 하위도 호출됩니다. 한 가지 다른 점은 프로그램이 요일을 검사하고 그 날에 해당하는 탭을 올바르게 표시한다는 것입니다. 월요일에이 코드는 잘 작동했습니다. 화요일에 오류가 발생하자마자이 오류가 발생했습니다.

Answer 1

conn을 매개 변수로 TabSelect() 함수에 전달해보십시오. TabSelect(ByRef OleDbConnection conn) 전역 변수로 작업 중이므로 범위 문제 일 수 있습니다.