VB.NET添加一条记录到数据库的代码怎么写，要定义哪个对象

--------------------编程问答-------------------- 查查ADO.NET --------------------编程问答-------------------- google 查询结果 --------------------编程问答-------------------- 给你一个SqlClient的例子，用于往Sql2000数据库中添加记录。



        Dim SQLStr As String = ""

        Dim u As New SqlCommand

        Dim Conn As New SqlConnection("Server=192.168.1.13;database=CRMDATAER;user id=sa;pwd=Aa123456")

        Dim a As Integer

        u.Connection = Conn

        u.Connection.Open()

        Dim UserID As String = ""

        Try

            SQLStr = "Select ID From Contract Where Contract_NumberID =(Select ID From Contract_Number Where Contract_Number like '" & Contract_NumberID & "')"

            u.CommandText = SQLStr

            Contract_NumberID = u.ExecuteScalar.ToString



        Catch ex As Exception

            'MsgBox(ex.Message)

            Err.Clear()

            Conn.Close()

            Conn.Dispose()

            Return False

            Exit Function

        End Try



        SQLStr = "Insert into Fees (Contract_NumberID,Delivery,DeliveryContact,Freight,Premium,Commission,Tim) Values (@Contract_NumberID,@Delivery,@DeliveryContact,@Freight,@Premium,@Commission,@Tim)"

        u.CommandText = SQLStr



        With u.Parameters

            .AddWithValue("@Contract_NumberID", Contract_NumberID)

            .AddWithValue("@Delivery", hys)

            .AddWithValue("@DeliveryContact", hdcontact)

            .AddWithValue("@Freight", yf)

            .AddWithValue("@Premium", bf)

            .AddWithValue("@Commission", yj)

            .AddWithValue("@Tim", Now)

        End With

        Try

            a = u.ExecuteNonQuery

        Catch ex As Exception

            'MsgBox(ex.Message)

        End Try



        u.Dispose()

        Conn.Close()

        Conn.Dispose()

        If a = 1 Then

            Return True

        Else

            Return False

        End If

--------------------编程问答--------------------

已经完成，代码下载地址是：
http://ishare.iask.sina.com.cn/f/11891662.html --------------------编程问答-------------------- strCmd="insert into table1 (field1,field2) values (values1,values2) where ..."
Dim Cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(strCmd, Conn)
Cmd.EndExecuteNonQuery --------------------编程问答-------------------- 使用PDF.NET 实体框架，很简单的：



User user=new User();

user.Name="aaa";

user.Age=20;



PWMIS.DataMap.Entity.EntityQuery<User>.Instance.Insert(user);

--------------------编程问答-------------------- 手写insert语句啊再调用操作数据库对象 --------------------编程问答-------------------- 实现的方法用很多。可以直接定义一个OleDbCommand，然后用ExecuteNonQuery()方法，就实现了。

补充：.NET技术 ,  VB.NET