stokens = sqlstring.Split("") 将sqlstring根据空格拆分成数组 If Strings.InStr("insert,delete,updata", stokens(0).ToUpper) Then 如果文字内包括insert,delete等文字 If oleconn.State <> ConnectionState.Open Then oleconn.Open() 如果connecition未打开， 则打开。 End If cmd.ExecuteNonQuery() 执行sql语句 If oleconn.State <> ConnectionState.Closed Then oleconn.Close() 如果connectin未关闭，则关闭 End If If stokens(0).ToUpper = "insert" Then 如果开头是insert MsgBox("编辑用户成功") 则提示此信息 End If If stokens(0).ToUpper = "delete" Then 如果开头是delete MsgBox("删除用户成功")则提示此信息 End If If stokens(0).ToUpper = "updata" Then 如果开头是update MsgBox("更新用户成功") 则提示此信息 End If Return Nothing