DataGridに表示されない

質問

ＶＢ6でMySQL4.1に接続して
MySQL内にあるデータベース"sample"の
テーブル"総合"をDataGridに表示したいのですが
できません。
エラーメッセージは
"実行時エラー　'7004':
行セットにはブックマークを設定できません"
とでます。
どうしたら表示されるのでしょうか？

Private Sub form_load()
Dim cn As ADODB.Connection 'オブジェクト
Dim rs As ADODB.Recordset

'データベースに接続
Set cn = New ADODB.Connection
'データベース：Sheet1
cn.ConnectionString = "Provider=MSDASQL.1;" _
& "Data Source=sample"
cn.Open
'レコードセットの取得
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.Source = "総合"
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open
Set DataGrid1.DataSource = rs
End Sub

回答No.1

dee_honda · ベストアンサー

CursorLocation = adUseClient で試してみてください。

rs.CursorLocation = adUseClient 'adUserServerが既定値
rs.CursorType = adOpenStatic 'adOpenKeysetのほうがいいかも
rs.LockType = adLockOptimistic
rs.Open

あと、テーブルに主キーがあるかどうかで状況が変わることがあります。

お礼

ありがとうございます！
rs.CursorLocation = adUseClient
を追加したら表示できました。
本当にありがとうございました。