Sub addJetSqlUser() : Microsoft Jet « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Microsoft Jet

Sub addJetSqlUser()

 
   Dim myConnection As ADODB.Connection
   Dim newUser As ADOX.User
   Dim strSQL As String
   
   Set myConnection = New ADODB.Connection
   With myConnection
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Properties("Jet OLEDB:System database") = "C:\demo.mdw"
      .Open "Data Source=c:\VBA.mdb;User ID=John;Password=;"
      strSQL = "CREATE USER joe [mycat] NULL"
      .Execute (strSQL)
   End With
End Sub

 

Related examples in the same category