Code:
Private Sub Form_Open(Cancel As Integer)
  Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
               
  'Create a new ADO Connection object
   Set cn = New ADODB.Connection
   
     With cn
      .Provider = "Advantage OLE DB Provider;LockMode=ADS_COMPATIBLE_LOCKING;User ID=USER;Password=Pass; Data Source=\\adresa:6263\software\baza.add;Advantage Server Type=ADS_AIS_SERVER;ReadOnly=TRUE;TableType=ADS_CDX"
      .Open
   End With

   'Create an instance of the ADO Recordset class, and
   'set its properties
   Set rs = New ADODB.Recordset
   With rs
      Set .ActiveConnection = cn
      .Source = "SELECT SIFRA_KOM, NAZIV_KOM, POSTA, ADRESA, MESTO_KOM, TEKUCI, PIB, REFER, DATUM, VREME from SIFKOM where PIB is not null order by SIFRA_KOM"
      .LockType = adLockReadOnly
      .CursorType = adOpenKeyset
      .CursorLocation = adUseClient
      .Open
   End With
  
   'Set the form's Recordset property to the ADO recordset
   Set Me.Recordset = rs
   Set rs = Nothing
   Set cn = Nothing

   Set cn = Me.Recordset.ActiveConnection
   cn.Close
   
End Sub