Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase(App.Path & "\dialpad.mdb")
Set rs = db.OpenRecordset("PhoneList")

rs.AddNew
rs(0) = Text1(4)
rs(1) = Text1(0)
rs(2) = Text1(1)
rs(3) = Text1(2)
rs(4) = Text1(3)
rs.Update
ClearFields
rs.Close
db.Close
End Sub

Private Sub Command2_Click()
ClearFields
End Sub

Private Sub Form_Load()
'Get number of records to index
GetCount
End Sub

Private Sub Text1_GotFocus(index As Integer)
Dim i As Integer
'Hightlight all text in textbox
For i = 0 To 3
SelectAllText Text1(i)
Next i
End Sub

Public Sub ClearFields()
Dim txtBox As Control

For Each txtBox In Me.Controls
If TypeOf txtBox Is TextBox Then
txtBox.Text = ""
End If
Next txtBox
GetCount
End Sub

Public Sub GetCount()
Dim db As Database
Dim rs As Recordset
Dim gCount
Set db = OpenDatabase(App.Path & "\dialpad.mdb")
Set rs = db.OpenRecordset("PhoneList")
rs.MoveFirst
rs.MoveLast
gCount = rs.RecordCount
rs.Close
db.Close
Text1(4) = gCount + 1
End Sub

Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String
List1.Clear
sql = "Select * From PhoneList Where FirstName Like'*" & Text1 & "*'"
Set db = OpenDatabase(App.Path & "\dialpad.mdb")
Set rs = db.OpenRecordset(sql, dbReadOnly)
If Text1 = "" Then
MsgBox "Please enter a name to search"
Else
List1.AddItem rs("IDNo") & " " & rs("FirstName") & " " & rs("LastName") & " " rs("PhoneNumber")
End If
rs.Close
db.Close
End Sub

Private Sub Command2_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String
List1.Clear
sql = "Select * From PhoneList"
Set db = OpenDatabase(App.Path & "\dialpad.mdb")
Set rs = db.OpenRecordset(sql, dbReadOnly)
Do While Not rs.EOF
List1.AddItem rs("IDNo") & " " & rs("FirstName") & " " _ & rs("LastName") & " " & rs("PhoneNumber")
rs.MoveNext
Loop
rs.Close
db.Close
End Sub

Private Sub List1_DblClick()
Dim db As Database
Dim rs As Recordset
Dim sql, phNum As String
Dim iPost, IDnum As Integer

iPost = InStr(List1, " ")
IDnum = Left$(List1, iPost)

sql = "Select * From PhoneList Where IDNo='" & IDnum & "'"
Set db = OpenDatabase(App.Path &; "\dialpad.mdb")
Set rs = db.OpenRecordset(sql)

Private Sub Text1_GotFocus()
SelectAllText Text1
End Sub