[mmali127]

السلام عليكم ورحمه الله وبركاته 

يمكنك استخدام الاجراء التالى 
وذلك بعد تعريفة فى مديول 

Sub SavaData(sql As String, para() As String, valus() As String)
        cmd = New SqlCommand(sql, Conn)
        For i As Integer = 0 To para.Count - 1
            cmd.Parameters.AddWithValue(para(i), valus(i))
        Next
        If Conn.State = ConnectionState.Open Then
            Conn.Close()
        End If
        Conn.Open()
        Try
            cmd.ExecuteNonQuery()
        Catch ex As Exception
        End Try
        Conn.Close()
    End Sub

حيث ان ال sql هو تعريف الجدول المراد الحفظ به 

تحياتى