【Excel+MySQL】select文で返ってきた値を変数に入れたい。

ExcelVBAの中に
変数A = "select max(id) from data"
と記述しselect文で返ってきた値（例えば100）を変数Bに代入したいと思います。
どのようにコーディングすれば可能でしょうか？

いくら調べてもわからなかったので教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： fortranxp 回答日時： 2005/12/14 19:53

UserForm1にコマンドボタン1を作成します。

ODBC接続の設定をします。
select文は select * from data表 でも表示可能です。

Private Sub CommandButton1_Click()
Dim cn As Variant
Dim rs As Variant
Dim sql As String
Dim i As Long
Dim j As Long
'** ODBC 接続
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "dsn=MySQL;uid=sunohara;pwd=2510"
cn.CursorLocation = 3

'** テーブル作成
sql = "select max(id) from data"
rs.Open sql, cn
i = 0
Do While Not rs.EOF
i = i + 1
For j = 1 To rs.Fields.Count
Sheet1.Cells(i, j).Value = rs.Fields(j - 1).Value
Next j
rs.MoveNext
Loop

'** ODBC 接続解除
cn.Close
End Sub