VB-插入一行數據到數據庫代碼錯誤

 代碼如下
Public Sub savety()
        Dim de As New DataSet
        Dim tb As DataTable = dsCJQK.Tables("datalist") 
        Dim Sql1 As String = "insert into tb (SampleN,CJNO,RZ,QS,CJYL,XJ,JYL,S,F,XQ) values (@Me.CmbSR.Text.Trim,@Me.TxtCJNO.Text.Trim,@Me.TxtRZ.Text.Trim,@Me.TxtQS.Text.Trim,@Me.TextBox1.Text.Trim,@Me.TxtXJ.Text.Trim,@Me.TxtJYL.Text.Trim,@Me.TxtS.Text.Trim,@Me.TxtF.Text.Trim,@Me.RichTRZXQ.Text.Trim)" 
        Dim cmd As New SqlCommand(Sql1, conn) 
        Dim da As New SqlDataAdapter(Sql1, conn)
        cmd.ExecuteNonQuery()        
        da.Fill(de, "datalist")
        Dim rw01 As DataRow = de.Tables("datalist").Rows(0)
        rw01("SampleN") = Me.CmbSR.Text.Trim()
        rw01("CJNO") = Me.TxtCJNO.Text.Trim
        rw01("RZ") = Me.TxtRZ.Text.Trim()
        rw01("QS") = Me.TxtQS.Text.Trim()
        rw01("CJYL") = Me.TextBox1.Text.Trim()
        rw01("XJ") = Me.TxtXJ.Text.Trim()
        rw01("JYL") = Me.TxtYL.Text.Trim()
        rw01("S") = Me.TxtS.Text.Trim()
        rw01("F") = Me.TxtF.Text.Trim()
        rw01("XQ") = Me.RichTRZXQ.Text.Trim()
        If MessageBox.Show("請問是否插入新步驟?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
            Clear1()        End If
    End Sub調試是出現錯誤提示：Must declare the scalar variable "@Me".
求各位幫忙看下要怎麼修改……萬分感謝！