Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command

Private Sub Command1_Click()



If ValidateTextFields Then


Set rs = New ADODB.Recordset
rs.Open " select * from customerinfo ", conn, 3, 3
rs.AddNew
rs.Fields("CN") = Text1.Text
rs.Fields("CA") = Text2.Text
rs.Fields("CDA") = Text4.Text
rs.Fields("CCP") = Text3.Text
rs.Fields("CT") = Text5.Text
rs.Fields("CF") = Text6.Text
rs.Fields("CE") = Text7.Text
rs.Fields("CS") = Combo2.Text
rs.Fields("Terms") = Combo1.Text
rs.UPDATE

Adodc1.Refresh

MsgBox "Data Added"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo2.Text = ""
Combo1.Text = ""



Else

MsgBox "All fields are required."
End If


End Sub



Private Sub Command2_Click()
MainForm.Show
Me.Hide

End Sub

Private Sub Command3_Click()

ListView1.Visible = True
Command3.Visible = False
Command4.Visible = True
Command1.Visible = False


End Sub

Private Sub Command4_Click()


Command4.Visible = False
Command3.Visible = True
ListView1.Visible = False
Command1.Visible = True


End Sub

Private Sub Command5_Click()
If ValidateTextFields Then
rs.Open " select * from Costumerinfo ", conn, 3, 3

rs.AddNew
Adodc1.Recordset.Fields("CN") = Text1.Text
Adodc1.Recordset.Fields("CA") = Text2.Text
Adodc1.Recordset.Fields("CDA") = Text4.Text
Adodc1.Recordset.Fields("CCP") = Text3.Text
Adodc1.Recordset.Fields("CT") = Text5.Text
Adodc1.Recordset.Fields("CF") = Text6.Text
Adodc1.Recordset.Fields("CE") = Text7.Text
Adodc1.Recordset.Fields("CS") = Combo2.Text
Adodc1.Recordset.Fields("Terms") = Combo1.Text
Adodc1.Recordset.UPDATE
MsgBox "Data has been Updated"



Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo2.Text = ""
Combo1.Text = ""

Command1.Visible = True




Else
MsgBox "All fields are required."
End If
End Sub

Private Sub Form_Load()

dbconnection
loadlist


Set rs = New ADODB.Recordset
rs.Open "select * from Salesman ", conn, 3, 3
Do While Not rs.EOF
Combo2.AddItem rs!SName
rs.MoveNext
Loop
Set rs = Nothing
End Sub

Private Sub ListView1_DblClick()
Text1.Text = ListView1.SelectedItem
Text2.Text = ListView1.SelectedItem.SubItems(1)
Text4.Text = ListView1.SelectedItem.SubItems(2)
Text3.Text = ListView1.SelectedItem.SubItems(3)
Text5.Text = ListView1.SelectedItem.SubItems(4)
Text6.Text = ListView1.SelectedItem.SubItems(5)
Text7.Text = ListView1.SelectedItem.SubItems(6)
Combo2.Text = ListView1.SelectedItem.SubItems(7)
Combo1.Text = ListView1.SelectedItem.SubItems(8)
ListView1.Visible = False


End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Text5.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub



Private Sub Text6_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Text6.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub

Private Function ValidateTextFields() As Boolean
Dim ctrl As Control
Dim result As Boolean

result = True 'set this to false if a textbox fails
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Len(ctrl.Text) = 0 Then
result = False
Exit For 'bail on the first failure
End If
End If
Next ctrl
ValidateTextFields = result

End Function


Sub loadlist()


Dim list As ListItem
ListView1.ListItems.Clear

rs.Open "SELECT * FROM customerinfo ", conn, adOpenForwardOnly, adLockReadOnly, adCmdText
Do Until rs.EOF
Set list = ListView1.ListItems.Add(, , rs!CN)
list.SubItems(1) = rs!CA
list.SubItems(2) = rs!CDA
list.SubItems(3) = rs!CCP
list.SubItems(4) = rs!CT
list.SubItems(5) = rs!CF
list.SubItems(6) = rs!CE
list.SubItems(7) = rs!terms
list.SubItems(8) = rs!CS

rs.MoveNext
Loop



End Sub

Sub dbconnection()

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\JRDManufacturing\Desktop\VB6\System\JRD.mdb"



End Sub