Hej

Använder följande kod för att söka i en Access-databas med SQL:

Dim varSokning As String
varSokning = Form1.txtSokning.Text
Dim Conn As New ADODB.Connection
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\test.mdb;uid=Admin"
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Dim SQL As String
SQL = "SELECT Translation, Grupp From Dictionary WHERE Word = '" & varSokning & "'"
Set RS = Conn.Execute(SQL)

Det jag gärna skulle vilja veta är hur jag gör för att möjliggöra mer än ett sökresultat. Koden ovan returnerar bara ett.
Om jag får fler resultat, hur gör jag för att skriva dessa i en textbox exempelvis? Som det är nu skriver jag tex: txt1.Text = RS("Grupp")

Set RS = Conn.Execute(SQL)

Do Until RS.EOF
text1.text = text1.text & rs("Grupp") & vbcCrLf
RS.MoveNext
Loop