Receiving error: the connectionstring property has not been initialized

Question

I get this error:
the connectionstring property has not been initialized
when I execute a SELECT . This is the calling code:

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

I am attempting to connect to an Access database.