Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim cs As String = "Provider=Microsoft.jet.OLEDB.4.0; Data Source=E:\Database\students1.mdb"
        Dim connection As New OleDbConnection(cs)
        Dim con As New OleDbCommand
        con.Connection = connection

        connection.Open()


        Dim sn As String
        Dim rn As Double
        Dim sc As Double

        sn = TextBox1.Text
        rn = Val(TextBox2.Text)
        sc = Val(TextBox3.Text)
        con.CommandText = " INSERT INTO STUDENTS ( SN,RN, SC) VALUES ( '@sn','@rn','@sc' )"

        con.Parameters.AddWithValue("@sn", sn)
        con.Parameters.AddWithValue("@rn", rn)
        con.Parameters.AddWithValue("@sc", sc)
        con.ExecuteNonQuery()
        MessageBox.Show("ROW INSERTED")

        connection.Close()
    End Sub
End Class