Daten aus Access direkt in Listbox einlesen (SQL)

Sub Laden_SQL(mySQLcmd As String)
Dim cmd As ADODB.Command
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
con.Open ConnectionString:= _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\herber\myAccDb.accdb" & _
"Mode=Share Exclusive"
Set cmd = New ADODB.Command
cmd.ActiveConnection = con
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open mySQLcmd, _
ActiveConnection:=con, _
CursorType:=adOpenStatic, _
LockType:=adLockPessimistic, _
Options:=adCmdTableDirect
With Tabelle1
.UsedRange.ClearContents
.Range("A1").CopyFromRecordset Data:=rs
End With
Set cmd = Nothing
con.Close
Set con = Nothing
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
Call Laden_SQL("SELECT AuftragsNr FROM AuftragAlle AS mytab WHERE [mytab.DatumStart] = " & Date) _
With Tabelle1
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
UserForm1.ListBox1.AddItem .Cells(i, 1).Value
Next i
End With
End Sub
Private Sub ListBox1_Change()
Dim i As Long
Call Laden_SQL("SELECT Modell FROM AuftragAlle AS mytab WHERE [mytab.AuftragsNr] = " &  _
UserForm1.ListBox1.Value)
UserForm1.Label1.Caption = Tabelle1.Range("A1").Value
Call Laden_SQL("SELECT Artikelnr FROM Stueckliste AS mytab WHERE [mytab.Modell] = " & UserForm1. _
Label1.Caption)
With Tabelle1
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
UserForm1.ListBox2.AddItem .Cells(i, 1).Value
Next i
End With
End Sub

Function Laden_SQL(mySQLcmd As String)
[... AccDb initilaisieren ...]
Laden_SQL = mySQLcmd
End Function
Private Sub ListBox1_Change()
UserForm1.Label1.Caption = Laden_SQL("SELECT Modell FROM AuftragAlle AS mytab WHERE [mytab. _
AuftragsNr] = " & UserForm1.ListBox1.Value)
End Sub