Sub UrlTage
 
Dim Conn as New ADODB.Connection, Rst as New ADODB.Recordset, StrSQL as String, _
  UrlTage as Integer
 
Set Conn = CurrentProject.Connection
StrSQL = "Select UrlaubstageJahr2007 FROM Urlaubstage WHERE" & _ 
" Mitarbeiter='" & Me.cb_Name.Text & "'"
Rst.Open StrSQL, Conn, 1, 3
UrlTage = Rst!UrlaubstageJahr2007
Rst.close
Set Rst= Nothing
Conn.Close
Set Conn=Nothing
 
Me.lbl_Urlaubstage.Text = UrlTage
 
end sub

Imports System
Imports System.IO
Imports System.Data.Sqlite
 
Modul Versuch
 
Sub Test()
 
Dim SQLConnStr As String = "DataSource = Verbindung zur DB"
Dim SQLConn As New SQLite.SQLiteConnection(SQLConnStr)
Dim SQLComm As New SOLite.SQLiteCommand("String", SQLConn)
Dim UrlTage As Integer
 
SQLConn.Open()
SQLComm.CommandText = "Select UrlaubstageJahr2008 FROM Urlaubstage WHERE" & _
  "Mitarbeiter = @MitArb"
SQLComm.Parameters.Add("@MitArb", DBType.String)
SQLComm.Parameters("@Indx").Value = cb_Name.Text 
Dim SQLRead as SQLite.SQLiteDataReader = SQLComm.ExecuteReader()
If SQLRead.HasRows Then
UrlTage = SQLRead.GetValues(0)
End if
 
SQLRead.Close
SQLConn.Close
cb_Urlaubsanspruch.Text = UrlTage
 
End Sub
 
End Modul