Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=e:\meinPfad.mdb")
cn.Open()

Dim ergebnis As String
With cn.CreateCommand()
.CommandText = "SELECT art FROM platzierungsspiele WHERE id=5"
ergebnis = .ExecuteScalar.ToString
.Dispose()
End With
cn.Close()
 
MessageBox.Show("Gefunden: " & ergebnis)

 Private Sub cb_Urlaubsanspruch_LostFocus(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles cb_Urlaubsanspruch.LostFocus
 
        Dim Str As String
 
If cb_Urlaubsanspruch.Text = "2007" Then
            lbl_Urlaubstage.Text = Str = "Select UrlaubstageJahr2007 FROM" & _
              "Urlaubstage WHERE Mitarbeiter='" & cb_Name.Text & "'"
        Else
 
            If cb_Urlaubsanspruch.Text = "2008" Then
                lbl_Urlaubstage.Text = Str = "Select UrlaubstageJahr2008 FROM" & _
                  "Urlaubstage WHERE Mitarbeiter='" & cb_Name.Text & "'"
            End If
        End If
    End Sub