★ADO 操作【SELECT SQL実行 サンプルリスト】 '************************************************************************** ' MS-AccessのDBに接続して、SELECT文を実行後、データを抽出して、DBを切断する '************************************************************************** Private Sub getSQL() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim strSQL strSQL = "SELECT * FR
