.NET (Core and Framework)

Private Sub addLaptopForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = New OleDb.OleDbConnection
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Jain\My Documents\jainProto3m.mdb"
        Me.TblLaptopTableAdapter1.Fill(Me.JainProto3mDataSet1.tblLaptop)

        Dim cmd As New OleDb.OleDbCommand
        Dim dr As OleDbDataAdapter
        Dim ds As DataSet

        Try
            con.Open()
            Try
                cmd.Connection = con
                'To get the Max value from the table Laptops
                Dim qrymax As String
                qrymax = "SELECT MAX(pkLaptopID) as abc FROM tblLaptop"
                'Here we place the query in the command text
                cmd.CommandText = qrymax

                'Here we create a new instances of the data set and the adapter and pass the 
                'query into the data Adapter through which we fill the data set 
                ds = New DataSet()
                dr = New OleDbDataAdapter(cmd)
                dr.Fill(ds)

                'here we convert the value from string to Integer
                Dim i As Integer
                Dim g As String
                g = ds.Tables(0).Rows(0).Item("abc").ToString()
                i = Convert.ToInt32(g) + 1
                Me.txtAddLaptopLaptopID.Text = i.ToString()



            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical)
            End Try



        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
            Exit Sub
        Finally
            'dbCommandins.Dispose()
            con.Close()


        End Try

    End Sub

CODE
no value given for one or more required parameter.