ايران ويج

Dim st As Integer
Dim av As Single
Dim un As Integer
Dim c As SqlCommand
Dim strSql1 As String
Dim strSql2 As String
Me.BindingContext(ds, "Table1").AddNew()
st = Val(TextBox1.Text)

strSql1 = "Insert Into Table1(" & "code, " & _
"Name, " & _
") VALUES ('" & st & "', '" & _
TextBox2.Text & "','" & _
"', True )"
c.ExecuteNonQuery()
con.Close()
MsgBox("Insert Completed .")
ds.Clear()
da.Fill(ds, "Table1")
con.Close()

End Sub