lbl_Server_Name.Text = loadText(1, cb_Sprache.Text)

Function loadText(ByVal zahl As Single, ByVal sprache As String) As String
        Dim 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()
        Dim ergebnis As String
        With cn.CreateCommand()
 
            .CommandText = "Select Text2 FROM Sprache WHERE " & _
                             "Textnummer=" & zahl & " AND Sprache='"& sprache & _
                             "'", cn)
            ergebnis = .ExecuteScalar.ToString
            TextBox1.Text = ergebnis
End With
        cn.Close()
End Function