Private Sub cmdStart_Click()
'Free Memory
Set txtContactID.DataSource = Nothing
Set txtFirstName.DataSource = Nothing
Set txtLastName.DataSource = Nothing
Set txtHomePhone.DataSource = Nothing
Set txtWorkPhone.DataSource = Nothing
If rsContacts.State = 1 Then
rsContacts.Move 0
rsContacts.Close
End If
Set rsContacts = Nothing
'Open new data
Set rsContacts = New ADODB.Recordset
rsContacts.Open "SELECT * FROM Contacts WHERE LastName = '" & txtSearch.Text & "'", dbContacts, adOpenStatic, adLockOptimistic, adCmdText
Set txtContactID.DataSource = rsContacts
Set txtFirstName.DataSource = rsContacts
Set txtLastName.DataSource = rsContacts
Set txtHomePhone.DataSource = rsContacts
Set txtWorkPhone.DataSource = rsContacts
End Sub