#2のxcrOSgS2wYさんが飛ばしているリンク先の、.NETサンプルを書いた者です。 .NETからVB6へのコンバートをやってみました。 (いつもと逆方向への変換なので、違和感がありました^^;;;) ストアドは、参考URLのまま利用しています。 Option Explicit Sub Main() Const DEF_ストアド名 As String = "ストアド" Dim l_adoCnn As ADODB.Connection Dim l_adoCmd As ADODB.Command Dim l_adoRec As ADODB.Recordset Set l_adoCnn = New ADODB.Connection Set l_adoCmd = New ADODB.Command 'コネクション設定 l_adoCnn.CursorLocation = adUseClie