Sub Command1_Click ()
    If dir1 <> "" Then
        Me.ExitCondition = "OK"
        Me.Hide
    Else
        MsgBox "Please select a directory", 64, "Open Database"
    End If
        
End Sub

Sub Command2_Click ()
    Me.ExitCondition = "Cancel"
    Me.Hide
End Sub

Sub Dir1_Change ()
    file1 = dir1
    label3 = dir1
End Sub

Sub Drive1_Change ()
    dir1 = drive1
End Sub

Sub File1_Click ()
    file1.ListIndex = -1
End Sub

Sub File1_DblClick ()
    file1.ListIndex = -1
End Sub

Sub Form_Load ()
    dir1 = drive1
    file1 = dir1
    label3 = dir1
End Sub