Dim orNr as String, ordNr as String
    Dim cn As Connection
    Dim rstADO As ADODB.Recordset
    
    GetConnectionProperties

    Set cn = New ADODB.Connection
 
    With cn
        .Provider = "SQLOLEDB"
        .ConnectionString = "Server=" & strSERVER & ";" & _
                            "Database=" & strDB & ";" & _
                            "UID=" & strUser & ";" & _
                            "PWD=" & strPWD & ";"
        .Open
    End With
    
    qry = "exec usr_OR_NextOrderNr '" & orNr & "' "
        
    Set rstADO = New ADODB.Recordset
    
    With rstADO
        If .State = adStateOpen Then .Close
        .ActiveConnection = cn
        .Source = qry
        .CursorLocation = adUseServer
        .CursorType = adOpenForwardOnly
        .LockType = adLockReadOnly
        .Open
    End With
        
    If Not rstADO.BOF Then
        ordNr = rstADO.Fields(0)
    End If