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 = ...
Some results have been hidden because they may be inaccessible to you
Show inaccessible results