vb.net创建窗体实现对sql.server数据库的增删改查

Form1.vb數據如下

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
   
  
   

 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, ByVal Email As String) As Boolean
        Dim OK_NO_down As Boolean
        Try
            cn.Open()
            cm.Connection = cn
            cm.CommandText = "INSERT INTO FIC_SMT_DB.dbo.Account  Values(@UserID,@C_Name,@E_Name,@pwd,@UserLevel,@Logon,@DeleteLevel,@Email)"
            cm.Parameters.AddWithValue("@UserID", User)
            cm.Parameters.AddWithValue("@C_Name", C_Name)
            cm.Parameters.AddWithValue("@E_Name", E_Name)
            cm.Parameters.AddWithValue("@pwd", password)
            cm.Parameters.AddWithValue("@UserLevel", UserLevel