プログラムのこの部分を実行すると、3709 のランタイム エラーが発生し続けます。誰かがそれを修正するために私ができることを知っていますか?
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public CustomerID As Integer
Public CustFirstName As String
Public CustLastName As String
Sub GetCustomerList()
Dim strSQL As String
Dim Customers As Variant
' Import customer info and use it to populate the list box.
' After frmcustomers is unloaded, we will know the CustomerID
' and Customer Name of the selected order.
strSQL = "SELECT CustomerID, CustFirstName, CustLastName FROM Customers"
rs.Open strSQL, cn
frmCustomers.Show
rs.Close
End Sub
ありがとう、
JM