Private Sub Combo_no_LostFocus() Dim myADOcon As ADODB.Connection Dim myrec As ADODB.Recordset Set myADOcon = New ADODB.Connection Set myrec = New ADODB.Recordset myADOcon.Open "Driver={MySQL ODBC 3.51 Driver};SERVER = サーバ名;DATABASE=データベース名;UID=ユーザID;PWD=password;STMT=SET CHARACTER SET cp932; " myrec.Open "select * from test where syain_no='" + Combo_no.Text + "';, myADOcon" lal_add.Caption = myrec.Fields("address").Value lal_name.Caption = myrec.Fields("name").Value lal_age.Caption = myrec.Fields("age").Value End Sub