DoEvents
    
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
     
    'Open the ADO Connection
    Set conn = New ADODB.Connection
         
    strDatabase = wsSetup.Cells(1, 2)
    
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & strDatabase & "'"
    conn.Open
       
    
    ' Select the data.
    Set rs = conn.Execute( _
        "SELECT * FROM tblCustomer", , _
        adCmdText)

Row = 1
    Do While Not rs.EOF
        For col = 0 To rs.Fields.Count - 1
            wsData.Cells(Row, col + 1) = _
                rs.Fields(col).Value
        Next col

        Row = Row + 1
        rs.MoveNext
    Loop


    ' Close the database.
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

strDatabase = wsSetup.Cells(1, 2)
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & strDatabase & "'"
conn.Open

Dim strContactName, strCompany, strPhone, strFax, strEmail, strAddress1, _
strCity, strState, strZIP As String

strContactName = frmNewContact.txtContactName
strCompany = frmNewContact.txtCompany
strPhone = frmNewContact.txtPhone
strFax = frmNewContact.txtFax
strEmail = frmNewContact.txtEmail
strAddress1 = frmNewContact.txtAddress1
strCity = frmNewContact.txtCity
strState = UCase(frmNewContact.txtState)
strZIP = frmNewContact.txtZIP
           
Dim strSQL As String
strSQL = "INSERT INTO tblCustomer(ContactName, Company, WorkNO, FaxNO, Email, Address, City, State, Zip)VALUES('" & strContactName & "', '" & strCompany & "', '" & strPhone & "', '" & strFax & "', '" & strEmail & "', '" & strAddress1 & "', '" & strCity & "', '" & strState & "', '" & strZIP & "')"

conn.Execute strSQL
                 
conn.Close
Set conn = Nothing