updating & viewing records on ms access using vb.net

Plz help me out sir,

I am new 2 vb.net
I have prepared forms n database bt dont knw how to connect them.

plz

hi admin

thanks for hotel management software. it is very high level for me now to understand. i write a simple access database manipulating program. this program read data from database columns and display in the list view and SUMS in the labels. but i was unable to display them in the labels.

so, can u please help. here is my code below.

Imports System.Data.OleDb
 
Public Class Form1
    Dim Cmd As New OleDbCommand
    Dim db As New OleDbCommand
    Dim cd As New OleDbCommand
    Dim Reader As OleDbDataReader
    Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
                "Source=|DataDirectory|\tv.mdb; Persist Security Info=True; " & _
                "Jet OLEDB:Database Password=12345")
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Cmd.Connection = Cn
        Cmd.CommandText = "SELECT Dbt AS Debit, Cdt AS Credit FROM AccTransaction"
        Cn.Open()
        Reader = Cmd.ExecuteReader
        lv_Trans.Clear()
 
        For i As Integer = 0 To Reader.FieldCount - 1
            lv_Trans.Columns.Add(Reader.GetName(i), 130, HorizontalAlignment.Center)
        Next
        While Reader.Read
            Dim LI As New ListViewItem
            LI.Text = Convert.ToString(Reader.Item("Debit"))
            LI.SubItems.Add(Convert.ToString(Reader.Item("Credit")))
            lv_Trans.Items.Add(LI)
        End While
        Reader.Close()
        Cn.Close()
 
        'here problem begins with lbl_Dbt.Text. it gives an exception error
        Cmd.CommandText = "SELECT SUM(Dbt), SUM(Cdt) FROM AccTransaction"
        Cn.Open()
        Reader = Cmd.ExecuteScalar
        While Reader.Read
            lbl_Dbt.Text = ??????
            lbl_Cdt.Text = ??????
        End While
        Cn.Close()
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
Dim frm As Form
frm = New info

If dtable.Rows.Count <> 0 Then

dtable.Rows(rowspost)("StudYr") = txtyear.Text
dtable.Rows(rowspost)("StudName") = txtname.Text
dtable.Rows(rowspost)("StudCon") = txtcontact.Text
dtable.Rows(rowspost)("StudAdd") = txtadd.Text
dtable.Rows(rowspost)("StudCors") = txtcourse.Text
dtable.Rows(rowspost)("StudDate") = dtp.Text
dtable.Rows(rowspost)("StudBal") = lblbill.Text
adapter.Update(dtable)
MessageBox.Show("Update successful")
End If

End Sub

what is wrong here? only the first row is updating, there's error when updating the rest rows.

my complete codes:

Imports System.Data.OleDb
Imports System.IO
Imports System.Data
Public Class info
Private con As New OleDb.OleDbConnection
Private adapter As New OleDb.OleDbDataAdapter
Private dtable As New DataTable
Private cbuilder As New OleDb.OleDbCommandBuilder
Private rowspost As Integer = 0
Private Sub info_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call dbconnect()

End Sub
Private Sub lblmain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblmain.Click
main.Show()
Me.Hide()
End Sub

Private Sub btnpay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpay.Click
Dim b As Double
b = Val(lblbalance.Text) - Val(txtmbill.Text)
lblbill.Text = b
End Sub
Private Sub dbconnect()
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
System.Environment.CurrentDirectory.ToString() & "\db2.mdb")
con.Open()
adapter = New OleDb.OleDbDataAdapter("Select * from Studentinfo", con)
cbuilder = New OleDb.OleDbCommandBuilder(adapter)
adapter.Fill(dtable)
End Sub
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
Dim com As OleDbCommand
Dim srch As OleDbDataReader
com = New OleDbCommand
com.Connection = con
com.CommandType = CommandType.Text
com.CommandText = String.Format("select * from Studentinfo where StudId ='{0}'", txtstudid.Text)
srch = com.ExecuteReader
If srch.Read() Then
lblid.Text = srch("StudId")
txtcourse.Text = srch("StudCors")
txtyear.Text = srch("StudYr")
txtname.Text = srch("StudName")
txtadd.Text = srch("StudAdd")
txtcontact.Text = srch("StudCon")
txtplan.Text = srch("StudPlan")
txtbfull.Text = srch("StudTuition")
lblbalance.Text = srch("StudBal")
lblmbill.Text = srch("StudMonthbill")
lblbill.Text = "0"
txtmbill.Text = "0"
Else
MessageBox.Show("MisMatch")
End If
End Sub

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim frm As Form
frm = New info

If dtable.Rows.Count <> 0 Then
dtable.Rows(rowspost)("StudId") = lblid.Text
dtable.Rows(rowspost)("StudYr") = txtyear.Text
dtable.Rows(rowspost)("StudName") = txtname.Text
dtable.Rows(rowspost)("StudCon") = txtcontact.Text
dtable.Rows(rowspost)("StudAdd") = txtadd.Text
dtable.Rows(rowspost)("StudCors") = txtcourse.Text
dtable.Rows(rowspost)("StudDate") = dtp.Text
dtable.Rows(rowspost)("StudBal") = lblbill.Text
adapter.Update(dtable)
MessageBox.Show("Update successful")
frm.Show()
Me.Hide()
End If

End Sub

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
Dim strSQL As String
Dim frm As New Form
If MessageBox.Show("Are you sure you want to delete the current curriculum from the database?", "Curriculum Deletion Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
strSQL = "DELETE FROM Studentinfo WHERE StudId='" & txtstudid.Text & "'"
Dim dCmdx As OleDbCommand = New OleDbCommand(strSQL, con)
dCmdx.ExecuteNonQuery()
dCmdx.Dispose()
MessageBox.Show("A curriculum is deleted from the database.", "Curriculum Deleted", MessageBoxButtons.OK, MessageBoxIcon.Information)
frm = New info
frm.Show()
Me.Hide()
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
Dim frm As Form
frm = New info

If dtable.Rows.Count <> 0 Then

dtable.Rows(rowspost)("StudYr") = txtyear.Text
dtable.Rows(rowspost)("StudName") = txtname.Text
dtable.Rows(rowspost)("StudCon") = txtcontact.Text
dtable.Rows(rowspost)("StudAdd") = txtadd.Text
dtable.Rows(rowspost)("StudCors") = txtcourse.Text
dtable.Rows(rowspost)("StudDate") = dtp.Text
dtable.Rows(rowspost)("StudBal") = lblbill.Text
adapter.Update(dtable)
MessageBox.Show("Update successful")
End If

End Sub

Private Sub txtplan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtplan.TextChanged
If txtplan.Text = "Full" Then
btnpay.Enabled = False
btnupdate.Enabled = False

End If
End Sub
End Class