My problem was how do you open an Access database. I didn't get a solution from the board, but I thought I'd share it with everyone. I'm sure there are others that would like this code.
Dim Acc As New Access.Application
Dim strAcc As String
strAcc = "complete pathname"
With Acc
.OpenCurrentDatabase(strAcc)
.Visible = True
.UserControl = True
End With
Dim Acc As New Access.Application
Dim strAcc As String
strAcc = "complete pathname"
With Acc
.OpenCurrentDatabase(strAcc)
.Visible = True
.UserControl = True
End With