' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Option Explicit
 
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim RS2 As ADODB.Recordset
 
Private Sub DataCombo1_Change()
' Bei Auswahl in der DataCombo 
' DataGrid vom RecordSet trennen und neu verinden
Set DataGrid1.DataSource = Nothing
 
RS2.Close
Set RS2 = Nothing
Set RS2 = New ADODB.Recordset
 
With RS2
  .ActiveConnection = DB
  .CursorLocation = adUseClient
  .CursorType = adOpenDynamic
  .LockType = adLockOptimistic
  .Source = "SELECT * FROM DeinerBestimmtenTabelle WHERE DeinFeld = '" & _
    DataCombo1.Text & "'"
  .Open
End With
 
Set DataGrid1.DataSource = RS2
 
End Sub
 
Private Sub Form_Load()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
Set RS2 = New ADODB.Recordset
 
' Datenbank öffnen
With DB
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Data Source=D:\IPTest.mdb"
 
' Achtung diese Zeile wird nicht richtig dargestellt
  .Properties("Jet OLEDBDatabase Password") = ""
' Zwischen OLEDB und Database muss ein Doppelpunkt
 
  .Open
End With
 
' RecordSet für DataCombo öffnen
With RS
  .ActiveConnection = DB
  .CursorLocation = adUseClient
  .CursorType = adOpenDynamic
  .LockType = adLockOptimistic
  .Source = "SELECT * FROM tblVlan"
  .Open
End With
 
Set DataCombo1.DataSource = RS
Set DataCombo1.RowSource = RS
DataCombo1.ListField = "VLAN"
 
' RecordSet für DataGrid öffnen
With RS2
  .ActiveConnection = DB
  .CursorLocation = adUseClient
  .CursorType = adOpenDynamic
  .LockType = adLockOptimistic
  .Source = "SELECT * FROM DeinerBestimmtenTabelle"
  .Open
End With
 
Set DataGrid1.DataSource = RS2
 
End Sub