asp.net 1.1 sql server 2000怎么实现

Public Function insertupdel(ByVal strUser As String, ByVal strPassword As String) As Boolean
Dim isFlag As Boolean = False
Dim StrNewSql As String = "Select txtuserid From users Where txtuserid='" & strUser & "'"
Dim strIntSql As String = "insert into users(txtuserid,txtpassword)Values('" & strUser & "','" & strPassword & "') "
Dim com As New SqlCommand
com.CommandText = StrNewSql
conn.ConnectionString = strConn
com.Connection = conn

SQL2000，好古老啊

Imports System.Data.SqlClient
Public Class sqldb
Dim conn As New SqlConnection
Private strConn As String
Public Function checkconnection(ByVal str As String) As Boolean
Dim isFlag As Boolean = False
If conn.State = ConnectionState.Closed Then
conn.ConnectionString = str
conn.