Access DAO or ODBC to Word

[samye]

Hello,

I have found some code to do a recordset in Word VBA to bring back some data from an Access database. I was getting an error that the db was corrupted but I don't think that is the issue. I am on Win 10 Pro, Access 365. The db was created as an mdb and then later merged into an accdb. i think that has something to do with it. I had googled but do not quite understand it. Anyway, I am doing something very simple and unsure of the best method. The feature of reading the db only needs to be on two PCs, so I can setup an ODBC connection for just that PC. In Word VBA, I had added references for DAO and Microsoft 16 Access. I received a 3343 error and I think it has to do with my references.
Thank you,
Carol

[ranman256]

i use this:

Dim con As ADODB.Connection
dim rs As ADODB.Recordset
Dim DB
Dim vProvid


Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
 
 uid = "" 
 pwd = ""
 DB = "\\myserver\production\Generic104J.accdb"
 vProvid = "Microsoft.Jet.OLEDB.4.0"           '  "SQLOLEDB"
 
  
With con
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("User ID").Value = uid
    .Properties("Password").Value = pwd
    
    .Open "Data Source=" & DB 
End With
 
Set rs = con.Execute("qsNames_simps")


rs.Close
con.Close


set rs = nothing
set con = nothing