Dim myDataRow As DataRow
myDataRow = Me.DsDefault.tb_users.NewRow()
myDataRow("fname") = strFname
myDataRow("lname") = strLname
myDataRow("phone") = strPhone
myDataRow("address") = strAddress
myDataRow("city") = strCity
myDataRow("current_flag") = intFlag
myDataRow("state") = strState
myDataRow("zip") = strZip
myDataRow("fax") = strFax
myDataRow("contact") = strContact
myDataRow("date_added") = strDateAdded
Me.DsDefault.tb_users.Rows.Add(myDataRow)
Debug.WriteLine("After Add Row: " & myDataRow.RowState.ToString)
Me.tb_usersTableAdapter.Update(Me.DsDefault.tb_users)
'======Update datarow routine ========
Dim myDataRow As DataRow = Me.DsDefault.tb_users.Rows(intRow)
myDataRow = Me.DsDefault.tb_users.NewRow()
myDataRow("fname") = strFname
myDataRow("lname") = strLname
myDataRow("phone") = strPhone
myDataRow("address") = strAddress
myDataRow("city") = strCity
myDataRow("current_flag") = intFlag
myDataRow("state") = strState
myDataRow("zip") = strZip
myDataRow("fax") = strFax
myDataRow("contact") = strContact
myDataRow("date_added") = strDateAdded
Debug.WriteLine("After Edit Row: " & myDataRow.RowState.ToString)
Me.tb_usersTableAdapter.Update(Me.DsDefault.tb_users)