Private Sub Form_Load() 
  With Cn 
    .Provider = "SQLOLEDB.1" 
    .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
      "Persist Security Info=False;Initial Catalog=test;Data Source=LEX" 
    .Open 
  End With 
 
  With Rs 
    .CursorType = adOpenDynamic 
    .LockType = adLockBatchOptimistic 
    .Open "RM16b030130a", Cn 
  End With 
End Sub

Set DataGrid1.DataSource = Rs

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de