Private Sub btn_Urlaub_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btn_Urlaub.Click
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data " & _
          "Source=C:\Users\mstichel\Desktop\Urlaubsantrag\Urlaubsantrag\Urlaub" & _
          "antrag.mdb")
        cn.Open()
        With cn.CreateCommand()
 
 
            .CommandText = "UPDATE Urlaubstage SET UrlaubstageJahr2007=155" & _
              "WHERE Mitarbeiter='" & cb_Name.Text & "'"
 
 
            .Dispose()
        End With
 
    End Sub