Я пытаюсь найти запись из базы данных ms access в VB.NET-что?

---

когда я ищу запись для кода

Он говорит, что свойство connectionString не инициализировано

Пожалуйста поправьте меня

Что я уже пробовал:

Private Sub txtsearch_TextChanged(sender As Object, e As EventArgs) Handles txtsearch.TextChanged

        ConnD()
        Try

        
        Dim dt As New DataTable
        Dim ds As New DataSet
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter
        da = New OleDbDataAdapter("Select * from SONGS where CODE like ?", con)
        da.SelectCommand.Parameters.AddWithValue("Code", "%" & txtsearch.Text & "%")
        da.Fill(dt)
            conn.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

---