نحوه ورود اطلاعات در datagrid

سلام خواهش می کنم مرا در مورد کد زیر راهنمایی کنید:
کد زیر را در vb6 در رویداد formload نوشته ام ولی هنگام اجرای برنامه با مشکل روبرو می شوم و اطلاعات جدول از پایگاه داده به datagrid منتقل نمی شود. ابتدا با error :the rowset isnot bookmarkable روبرو شدم که با درج عبارت rst.CursorLocation = adUseClient با error دیگری روبرو شدم:operation is not allowed when the object is open و روی کد rst.CursorLocation = adUseClient این error را می گیرد.

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command

cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=(LOCAL)"

rst.Open "bahar", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
cmd.ActiveConnection = cnn
cmd.CommandText = "select * from bahar "


Set rst = cmd.Execute
rst.CursorLocation = adUseClient
DataGrid1.ClearFields
Set DataGrid1.DataSource = rst

Adodc1.Recordset.Close
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
Set cmd = Nothing
با تشکر:46: