Database

rsGuest.Open("Guest", ADOConnection, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)<br />
Dim command As String<br />
<br />
<br />
command = "INSERT INTO Guest(Guest ID) VALUES('1111')"<br />
ADOConnection.Execute(command, rsGuest)

Private ADOConnection As New ADODB.Connection 'the database<br />
Private rsGuest As New ADODB.Recordset 'the recordset<br />
<br />
'code for opening the database and recordset<br />
ADOConnection.Open("provider=microsoft.ace.oledb.12.0;" & "Data Source=j:\junk.accdb")<br />
rsGuest.Open("Guest", ADOConnection, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click<br />
        Dim SQL As String = Nothing<br />
        SQL = "DELETE FROM Student WHERE StudentID = " & TextBox3.Text<br />
        If MessageBox.Show("Are you sure you want to delete", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = MsgBoxResult.Yes Then<br />
            conStudent = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\bablu\My Documents\Visual Studio 2005\Projects\SQL DataApplication\SQL DataApplication\Student.mdf;Integrated Security=True;User Instance=True")<br />
            conStudent.Open()<br />
            Try<br />
                commStudent = New SqlClient.SqlCommand(SQL, conStudent)<br />
                commStudent.ExecuteNonQuery()<br />
              <br />
                MsgBox("Itemdeleted successfully", MsgBoxStyle.Information)<br />
            Catch ex As Exception<br />
                MsgBox(ex.Message)<br />
            End Try<br />
            conStudent.Close()<br />
            conStudent.Dispose()<br />
        Else<br />
            Exit Sub<br />
        End If<br />
    End Sub