'Ado.Net : How to Save into Table using Online Mode
'Visual Basic .Net, MS-Access 2003/2007, Ado.Net
'Save Method
SqlStr = Nothing
SqlStr = "Insert Into Table_Name (Field1,Field2,Field3)"
SqlStr = SqlStr + " Values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')"
        With CMD
            .Connection = CN
            .CommandType = CommandType.Text
            .CommandText = SqlStr
        End With
Dim SqlH As Integer
        SqlH = CMD.ExecuteNonQuery
        MsgBox ("( ") & SqlH & (" ) Friend Saved")
        ClearAll()