Imports System.Data.SqlClient
Public Class Form1
Dim cn As SqlConnection
Dim cn_s As New SqlConnection("data source=dti-db;initial catalog=fic_smt_db;password=fic_repair;persist security info=True;user id=fic_repair;workstation id=DTI-HKX;packet size=4096")
Dim cn_m As New SqlConnection("data source=dti-db;initial catalog=fic_mi_db;password=fic_repair;persist security info=True;user id=fic_repair;workstation id=DTI-HKX;packet size=4096")
Dim cm As New SqlCommand
Dim read As SqlDataAdapter
Dim ds As DataSet
Dim da As SqlDataAdapter
Function InsertUp_Doing(ByVal User As String, ByVal C_Name As String, ByVal E_Name As String, ByVal password As String, ByVal UserLevel As String, ByVal Logon As String, ByVal DeleteLevel As String, B