Jag får ett felmeddelande när jag kör denna satsen mot databasen som verkar bero på min variabel sokord, vilken är en String.

OleDbdaLevNamn.SelectCommand.CommandText = "Select namn from Leverantor where namn = '" & sokord & "'"

Vad är felet?

Vad får du för felmeddelande?
Innehåller sokord apostrofer?

Som Per säger, testa:

sokord = Replace(sokord,"'","''")
OleDbdaLevNamn.SelectCommand.CommandText = "Select namn from Leverantor where namn = '" & sokord & "'"

Nej, den innehåller inga apostrofer men det ville inte fungera ändå. Har övergått till att försöka jobba med dataadapter.parameter.add() istället. Kan ni visa på en kodsnutt som får ett insert-kommando att funka?

' Kör ett query innehållande sp-namn och dess parametrar
Shared Sub ExecuteQuery(ByVal query As String)

' endast för ins/upd/del

' Skapa instans av en Connection samt Command Object

Dim Con As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim cmd As SqlCommand

' öppnar connection
Con.Open()

' skickar in datat
cmd = New SqlCommand(query, Con)

' kör sp:n eller sql-satsen
cmd.ExecuteNonQuery()

' frigör objekten
cmd.Dispose()
Con.Dispose()

End Sub

Man tackar så mycket *ler*