Public Function InsertLargeTeam(ByVal ACode As String, ByVal AName As String) As String
            Const SqlStat As String = "Insert into largeteam(ltno, ltname) values(@no, @name)"
            Dim sError As String            Dim cntLt As New SqlNonnection("data source=192.168.0.250,1433;user id=sa;password=;database=violation")
            Dim cmdLt As New SqlCommand(SqlStat, cntLt)
            Me.AddParameter(cmdLt, "@no", ACode)
            Me.AddParameter(cmdLt, "@name", AName)
            cntLt.Open()
            Try
                cmdLt.ExecuteNonQuery()
                sError = ""
            Catch e As Exception
                sError = e.Message
            Finally
                cntLt.Close()
            End Try
            Return sError
        End Function