Library Management System

GOOD DAY SIR ITACHI_PHILIP,
I AM REALLY IN A FIX RIGHT NOW AS I NEED YOUR HELP.
I AM A FINAL YEAR COMPUTER SCIENCE STUDENT
I AM TRYING TO DEVELOP A LIBRARY MANAGEMENT SYSTEM USING VB.NET and SQLSERVER 2005,I HAVE BEEN ON THIS FOR SOME MONTHS NOW TO NO AVAIL.

I AM TO DEFEND MY PROJECT ON MONDAY(22ND NOV. 2010) AND I STILL HAVE ERRORS IN MY CODES.I WILL ATTACH THE CODES I HAVE WRITTEN SO THAT YOU COULD HELP ME CORRECT IT OR POSSIBLY SEND YOUR MARVELOUS WORK FOR ME TO DEFEND WITH.I PROMISE TO ACKNOWLEDGE YOU IN MY SUCCESS AND ALSO REFERENCE YOU.PLEASE I REALLY DO NEED YOUR HELP(MY EMAIL:inyeneE.M.E@gmail.com)

my codes
Imports System.Data.SqlClient
Public Class Form1
Dim CON As New SqlConnection
Dim CMD As New SqlCommand
Dim ADP As New SqlDataAdapter
Dim DS As New DataSet

Private Sub frmproject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data intothe 'DataSet1.TBLBOOKS1' table. You can move, or remove it, as needed.
Me.TBLBOOKS1TableAdapter.Fill(Me.DataSet1.TBLBOOKS1)
'TODO: This line of code loads data into the 'DataSet2.TBLUSERS' table. You can move, or remove it, as needed.
Me.TBLUSERSTableAdapter.Fill(Me.DataSet2.TBLUSERS)
END USER

'TO ADD NEW USER TO DATABASE
Private Sub cmdaddusertodatabase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaddusertodatabase.Click

CON.ConnectionString = "Data Source=LUVLYRUTY-PC\SQLExpress;Integrated Security=True"
CON.Open()
CMD = CON.CreateCommand
CMD.CommandText = "SELECT * FROM TBLUSERS"
CMD.ExecuteNonQuery()
ADP.SelectCommand = CMD
ADP.Fill(DS)
Me.DataGridView1.DataSource = DS.Tables(0)
TBLUSERSTableAdapter.InsertQuery(Me.txtmat.Text, Me.txtlastname.Text, Me.txtothernames.Text, Me.txtemail.Text, Me.txtphoto.Text, Me.txtpermission.Text)
MsgBox("registered")
'TBLBOOKS1TableAdapter.ClearBeforeFill.ToString()
TBLUSERSTableAdapter.Fill(DataSet2.TBLUSERS)
CON.Close()
If (Me.txtmat.Text = "" Or Me.txtlastname.Text = "" Or Me.txtothernames.Text = "" Or Me.txtemail.Text = "" Or Me.txtphoto.Text = "") Then
MsgBox("ALL FIELDS MUST BE FILLED")
Exit Sub
End If
End Sub
'TO ADD NEW BOOKS
Private Sub cmdbookadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbookadd.Click
CON.ConnectionString = "Data Source=LUVLYRUTY-PC\SQLExpress;Integrated Security=True"
CON.Open()
CMD = CON.CreateCommand
CMD.CommandText = "SELECT * FROM TBLUSERS"
CMD.ExecuteNonQuery()
ADP.SelectCommand = CMD
ADP.Fill(DS)
Me.DataGridView3.DataSource = DS.Tables(0)
TBLBOOKS1TableAdapter.InsertQuery(Me.cmbcat.SelectedItem, Me.txtisbn.Text, Me.txtbooktitle.Text, Me.txtauthor.Text, Me.txtpublisher.Text, Me.txtcopies.Text)
MsgBox("registered")
TBLBOOKS1TableAdapter.Fill(DataSet1.TBLBOOKS1)
CON.Close()
End Sub

'TO SEARCH FOR BOOOKS
Private Sub cmdsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsearch.Click

End Sub

PLEASE I WILL BE VERY GRATEFUL.THANKS AND GOD BLESS YOU

Hey there LIMP! Salamat kaayo sa imohang blog. You made me earn 2$. hahahaha! Pro na kaayo ka ug dating hap!? Goodluck! Ayo ayo dira sa naawan... =D pabutang ug link ha? hehehehe... ayaw intawon i remove kay naa koy sweldo ana kada link nga mabutang.. hehehehe

Marl @ stretch mark removal

brad la kay source code sa voting systeme nemu sa access

I'm an IT student...now i'm in my last sem and i hv 2 come out with a system in my final project...i hv looked through a lot of websites including this 1..your system is awesome...simple and attractive...i hv decided 2 do some changes and submit it on my final project..so pls can u help me out with this..hw can i change the codings...can u pls email me rayan_cooper69@hotmail.com..
i will really appreciate it..i swear i will owe u a big favor..pls help me out here