asked on
Public conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\data.mdb;")
Public dadaptor As New OleDbDataAdapter("SELECT * FROM church_members", conn)
Public objDatatable As New Data.DataTable(table)
Dim dt As Data.DataRow = objDatatable.NewRow()
With dt
'Personal Info
.Item(field.member_name) = txtname.Text
.Item(field.father_name) = txrfathersname.Text
.Item(field.mother_name) = txtmothersname.Text
.Item(field.dateofbirth) = dob.Value
.Item(field.photo) = ""
If rdomale.Checked Then
.Item(field.sex) = "M"
Else
.Item(field.sex) = "F"
End If
End With
objDatatable.Rows.Add(dt)
' objDatatable.AcceptChanges()
conn.Open()
Dim dbcommand As New OleDbCommandBuilder(dadaptor)
dadaptor.Update(objDatatable)
conn.Close()