this one

Private Sub savebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savebtn.Click
        Dim registerCus As DataRow = Database6DataSet1.CUSTOMER.NewRow
 
        Try
            registerCus("Name") = NameTextBox.Text
            registerCus("Address") = AddTextBox.Text
            registerCus("Telno") = TelNoTextBox
 
            Database6DataSet1.CUSTOMER.Rows.Add(registerCus)
            OleDbDataAdapter1.Update(Database6DataSet1)
 
            MessageBox.Show("Record succsesfully saved")
        Catch ex As Exception
            MessageBox.Show("Invalid data")
        End Try
    End Sub