title: Receiving error: the connectionstring property has not been initialized
body: <p>I get this error:<br>
  the connectionstring property has not been initialized<br>
  when I execute a <code>SELECT</code> . This is the calling code:</p>
  
  <pre><code>Sub New()
          Dim con As New OleDbConnection
          If IO.File.Exists(Application.StartupPath &amp; "\lab2015.accdb") Then
              If My.Settings.constr = "" Then
                  con = New OleDbConnection(("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &amp; Application.StartupPath() &amp; "\lab2015.accdb;Jet OLEDB:Database Password=mak;"))
              Else
                  If IO.File.Exists(My.Settings.constr) Then
                      con = New OleDbConnection(("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &amp; My.Settings.constr &amp; ";Jet OLEDB:Database Password=mak;"))
                  Else
                      If MessageBox.Show("هل تريد تحديد مسار قاعدة البيانات", "خطأ قاعدة البيانات غير موجودة", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) = DialogResult.Yes Then
  
                          Database.Show()
                      Else
                          MessageBox.Show("سيتم استخدام قاعدة البيانات الحالية ", "تنويه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                          con = New OleDbConnection(("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &amp; Application.StartupPath() &amp; "\lab2015.accdb;Jet OLEDB:Database Password=mak;"))
  
                      End If
                  End If
  
  
              End If
          Else
              MessageBox.Show("قاعدة البيانات غير موجودة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
              Exit Sub
          End If
      End Sub
      REM جلب البيانات بطريقة الاتصال المغلق
      Public Function selectdatatable(seltxt As String) As DataTable
  
          If con.State = ConnectionState.Open Then
              con.Close()
          End If
          Dim da As New OleDbDataAdapter(seltxt, con)
          Dim dt As New DataTable
          con.Open()
          da.Fill(dt)
          Return dt
          con.Close()
      End Function
  </code></pre>
  
  <p>I am attempting to connect to an Access database.</p>