[VBA] Connecting to SQL through application role

[skorpionkz]

Hi guys,

I rebuilding application and moving database from Access to SQL Server Management Studio.

I want to add access level for application rather than add every user to access (Application doing all user validation). I am not really fluent with SQL. Can some one advice what am I doing wrong?

Public Sub SQL_TEST()


    Dim myConnection            As New ADODB.Connection
    Dim sConnectionString       As String
        
    sConnectionString = "Provider=SQLOLEDB;Data Source=myDB;Initial Catalog=myCat;User ID=myApp;Password=abc;"
    
    myConnection.Open sConnectionString
    
    myConnection.Close
    
    Set myConnection = Nothing
End Sub