1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Private Sub cmdNo_Click() Dim accObj As New Access.Application Dim strDSF As String strDSF = [Forms]![frmMain]![txtTarget] With accObj .OpenCurrentDatabase strDSF .Visible = True .UserControl = True End With Set accObj = Nothing End Sub