Ret i script - text felt fra db

Private Sub TextBox1_Change()

  Dim db As Database
  Dim rs As Recordset
  Dim ws As Object
  Dim i As Integer
  Dim Path As String
  Dim tx1 As String
  Dim TextBox2 As String
  'aktuel arknavn
  Set ws = Sheets("Ark1")
  'sti til database
  Path = "C:\Documents and Settings\butik\My Documents\varesortiment.mdb"
 

  Set db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
  'Selectstreng til TABEL1
  'Hent data
  sqlstr = "SELECT * FROM Varelager WHERE varenr =TextBox1;"


  '*** Hent data ***
  Set db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
  Set rs = db.OpenRecordset(sqlstr)
 
 

  '*** Indsæt VareTekst i A5 og Disponent i A7 ***
  UserForm1.TextBox2 = rs.Fields("beskrivelse")


  '*** luk databasen igen ***
  rs.Close
  db.Close
End Sub

Hvad er der galt i forspørgelsen til databasen?