Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

Private Sub cb_Sprache_TextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles cb_Sprache.TextChanged
        lbl_Server_Name.Text = loadFritz(1, cb_Sprache.Text)
end Sub

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

ergebnis = .ExecuteScalar.ToString