Dim strSQL As String, sWhere As String
Dim rsmodule As ADODB.Recordset
 
strSQL = "select * from tblmodule where lngprojectid = " & lngProjectID
Set rsmodule = New ADODB.Recordset
rsmodule.Open strSQL, glDbEnv.ADOConnection, adOpenDynamic, adLockOptimistic _
  'glDbEnv.ADOConnection = bestehende Connection
 
Set frmGUI.DataGridTblModule.DataSource = rsmodule
'...

Gruß
Dirk

--
?Get it right the first time