Sub loadText(ByVal zahl As Single, ByVal sprache As String) 
  Using cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
    "Source=C:\xx\xx\xx\xx\xx\xx\xx\xx.mdb")
    cn.Open()
    With cn.CreateCommand()
      .CommandText = "Select Text2 FROM Sprache WHERE Textnummer=? AND" & _
        "Sprache=?"
      .Parameters.AddWithValue("Textnummer", zahl)
      .Parameters.AddWithValue("Sprache", sprache)
      dim ergebnis as Object = .ExecuteScalar
      if ergebnis IsNot Nothing then
        TextBox1.Text = ergebnis.ToString()
      else
        TextBox1.Text = "Nicht gefunden"
      End If
    End With
  End Using
End Function