ارتباط با بانک اطلاعاتی اکسس

[hamhik]

با سلام و خسته نباشید.
مشکلی که من داشتم مربوط می شه به قسمت asp.net web siteدر واقع من برنامه مو اول تو محیط vb.net نوشتم حالا که می خوام کداشوببرم تو قسمت asp.net اجرا می شه ولی روی یه سری دستورات خطا می ده.حالا به نظر شمامشکل این کد در کجاست این کد را من در 2005vb.net نوشتم و بعد در محیط asp.net web site کپیش کردم.


Imports System.Data
Imports System.Data.OleDb

Public Class Form1
Inherits System.Windows.Forms.Form
Dim ds As New DataSet
Dim strsql As String
Dim strcon As String
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim newrow As DataRow
Dim cb As OleDbCommandBuilder
Private Sub empty()
TextBox1.Text = 0
TextBox2.Text = ""
TextBox3.Text = 0
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strcon = "provider=microsoft.jet.oledb.4.0;" & "data source=d:\a\tct121.mdb"
strsql = "select * from ta121"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "ta121")
con.Close()
End Sub

کدهای مربوط به درج یک سطر خالی در بانک اطلاعاتی
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
newrow = ds.Tables("ta121").NewRow
MsgBox("enter new record and press save")
Call empty()
End Sub
کدهای مربوط به دادن مقدار به فیلدهای سطر خالی
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
newrow("snoid") = Val(TextBox1.Text)
newrow("snameuser") = TextBox2.Text
newrow("snopass") = Val(TextBox3.Text)
ds.Tables("ta121").Rows.Add(newrow)
cb = New OleDbCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "ta121")
con.Close()

End Sub