接收错误：connectionstring属性尚未初始化

Question

我收到此错误：
connectionstring属性尚未初始化
当我执行SELECT时。这是调用代码：

Sub New()
        Dim con As New OleDbConnection
        If IO.File.Exists(Application.StartupPath & "\lab2015.accdb") Then
            If My.Settings.constr = "" Then
                con = New OleDbConnection(("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "\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=" & My.Settings.constr & ";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=" & Application.StartupPath() & "\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

我正在尝试连接到Access数据库。