Der er en ugyldig sql sætning. "delete", "insert", "procedure", "select " eller "update"var vente

Hej alle sammen...jeger næsten ny i visual basic.

jeg er ved at lave en telefonbog til egen brug i vb 2008.

Men hver gang jeg køre den får jg følgende fejl.
Der er en ugyldig sql sætning. "delete", "insert", "procedure", "select " eller "update"var ventet.


Fejlen forkommer hos følgende kode.

Da.fill(ds, "addressbook")


Sdan ser min hele koden ud:

Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String

        con.ConnectionString = "provider = microsoft.jet.oledb.4.0;data source = C:\AddressBook.mdb"

        con.Open()

        MsgBox("a connection to the database is now open")

        con.Close()

        MsgBox("the connection to the database is now closed")

        da = New OleDb.OleDbDataAdapter(sql, con)

        con.Open()

        da.SelectCommand.CommandText = "Addressbook"

        sql = "Select * from table_Fornavn"
        da.Fill(ds, "addressbook")

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "addressbook")

        con.Close()


    txtfirstname.Text = ds.Tables("addressbook").Rows(0).Item(1)
txtsurname.Text = ds.Tables("addressbook").Rows(0).Item(2)