Private Sub Form_Open(Cancel As Integer) Dim sql As String Dim rs As ADODB.Recordset Dim cn As ADODB.Connection ' Open the connection. Set cn = New ADODB.Connection With cn .Provider = ...
Results that may be inaccessible to you are currently showing.
Hide inaccessible results