Function RSArtikla(IDArt As Integer)
     
Dim Kon As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim SQL As String
Dim strUserName As String, strPassWord As String, strDatabase As String, strServer As String


    strUserName = "Ime"
    strPassWord = "Sifra"
    strDatabase = "Baza"
    strServer = "ImeTvogServera"
    
        Kon.CursorLocation = adUseClient
        Kon.Open "Provider=MSDASQL; DRIVER=Sql Server; SERVER=" & strServer & "; DATABASE=" _
        & strDatabase & "; UID=" & strUserName & "; PWD=" & strPassWord & ";"
        
        Set Rs = New ADODB.Recordset
        SQL = "EXECUTE ArtikalBR " & IDArt
        Rs.Open SQL, Kon, adOpenKeyset
        MsgBox Rs!Artikal_Ime & "----" & Rs!CENA
        Kon.Close     
    End Function