remove all dbgrid columns

  While dbGrid.Columns.Count <> 0
    dbGrid.Columns.Remove 0
  Wend

Private Sub Form_Load()
  While DataGrid1.Columns.Count <> 0
    DataGrid1.Columns.Remove 0
  Wend
End Sub

  dbGrid.Visible = False
  While dbGrid.Columns.Count > 1
    dbGrid.Columns.Remove 0
  Wend
  Dim TblFields As Integer
  TblFields = MyRset.Fields.Count
  If TblFields > 0 Then
    TblFields = TblFields - 1
    For t = 0 To TblFields
      dbGrid.Columns.Add(t).Caption = MyRset.Fields(t).Name
    Next t
  End If
  dbGrid.Columns.Remove dbGrid.Columns.Count - 1
  dbGrid.Visible = True

'opens an ado read only recordset
Public Function OpenRSro(sql As String) As ADODB.Recordset
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.Open sql, cn, adOpenForwardOnly
    Set OpenRSro = rst
End Function

Private Sub fillGrid(ByVal sql As String)
    On Error GoTo errInvalidStatement
    Set DataGrid1.DataSource = OpenRSro(sql)
    Exit Sub
errInvalidStatement:
    MsgBox "An error occured while attempting to execute the query:" & vbCrLf _
        & sql & vbCrLf & "Error #: " & Err.Number & vbCrLf & "Error Desc: " & _
        Err.Description
    On Error GoTo 0
End Sub

  An error occured while attempting to execute the query:
  select * from members
  Error #: 7004
  Error Desc: The rowset is not bookmarkable.