Jag har ett xl blad där det finns en knapp som öppnar ett vb-formulär. Där finns knappar för sökning och uppdat, samt knapp för inmatning av information till en tabell i en databas i SQL-server. Fråga: hur får jag kontakt med databasen?trodde det skulle vara så här men det fungerar inte!

Dim db As New ADODB.connection
Dim rs As New ADODB.Recordset


Private Sub cmdsok_Click()
db.Open "Driver=SQL Server; Server=vlkjehol;Database=ANMALAN;UID=sa;PWD=;"

rs.Open ("SELECT ¨fornamn_vc, efternamn_vc FROM prob_jouranm_t WHERE fornamn_vc = " & UserForm3.txtfornamn.Text, connection,adOpenKeyset,adLockOptimistic)
UserForm3.txt.fornamn = rs(1)
UserForm3.txt.efternamn = rs(2)

Private Sub cmdsok_Click()
set db = New ADODB.Connection
set rs = New ADODB.Recordset
db.Open "Driver=SQL Server; Server=vlkjehol;Database=ANMALAN;UID=sa;PWD=;"

rs.Open ("SELECT ¨fornamn_vc, efternamn_vc FROM prob_jouranm_t WHERE fornamn_vc = " & UserForm3.txtfornamn.Text, connection,adOpenKeyset,adLockOptimistic)
UserForm3.txt.fornamn = rs(1)
UserForm3.txt.efternamn = rs(2)



/Johan

det fungerar inte det kommer ett meddelande om kompileringsfel:
syntaxfel

Inga paranteser på funktions subrutins anrop:

Private Sub cmdsok_Click()
set db = New ADODB.Connection
set rs = New ADODB.Recordset
db.Open "Driver=SQL Server; Server=vlkjehol;Database=ANMALAN;UID=sa;PWD=;"

rs.Open "SELECT ¨fornamn_vc, efternamn_vc FROM prob_jouranm_t WHERE fornamn_vc = " & UserForm3.txtfornamn.Text, connection,adOpenKeyset,adLockOptimistic
UserForm3.txt.fornamn = rs(1)
UserForm3.txt.efternamn = rs(2)

Det fungerar inte " körfel 3001"

Arguments are of wrong type, are out of acceptable range, or are
in conflikt with one another

Det låter som ett stav fel av antingen adOpenKeyset eller adLockOptimistic. Testa att lägg till Option Explicit längst upp i modulen. Ska det verkligen vara ett ¨-tecken framför fornamn_vc?