Kann mir jemand helfen das Passwort "Test" in die folgende Abfrage einzubauen?
Jegliche Versuche meinerseits führten leider nicht zum Erfolg!
Sub AnmeldungID()
With Sheets("Personal").QueryTables.Add(Connection:= _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=\\Srv-nav\c$\Access\
Seehof Test.mdb;DefaultDir=\\Srv-nav\c$\Access;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Sheets("Personal").Range("A1"))
.CommandText = Array( _
"SELECT Rollen.Rollen, Rollen.Beschreibung, Rollen.Auftrag, Rollen.Rechnung, Rollen.Gutschrift, Rollen.Storno, Rollen.Bericht, Rollen.DatenZiele, Rollen.Persansehen, Rollen.Persändern, Rollen.Korrektur" _
, ", Rollen.Optionen, Rollen.Debitorenansehen, Rollen.Debitorenändern, Rollen.Nummer" & Chr(13) & "" & Chr(10) & "FROM `\\Srv-nav\c$\Access\Seehof Test.mdb`.Rollen Rollen")
.Name = "Abfrage von Microsoft Access-Datenbank"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Gruß Andre