Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    cnn.Open "Provider=SQLOLEDB;Data Source=(local);" & _
      "Database=Northwind;User Id=sa;Password=123"

    rst.Open "SELECT * FROM proizvodstva WHERE kod=1", cnn, _
      adOpenKeyset, adLockReadOnly
    
    Do While Not rst.EOF
        Debug.Print rst.Fields( 0 ); rst.Fields( 1 )
        rst.MoveNext
    Loop
    
    rst.Close
    Set rst = Nothing
    
    cnn.Close
    Set cnn = Nothing