mssql 연결하여 자동완성기능만들기

#Region "자동완성 기능"

    Private Sub RNR_AutoComplete()

        Dim DBConn As SqlConnection

        DBConn = New SqlConnection(dbstring)

        DBConn.Open()

        Dim mySqlCommAND As SqlCommand

        Dim QueryString As String

        QueryString = "select  분류1, 분류2, 유형1, 유형2, 유형3, 내용1, 내용2, 내용3, 파일명, 작성일, 작성자, 예비1 from  " & 테이블명 &

                                                 " where 유형2 like '%" & Replace(Replace(Replace(TextBox1.Text, "'", "''"), ",", ""), " ", "") &

                                                 "%' or 분류2 like '%" & Replace(Replace(Replace(TextBox1.Text, "'", "''"), ",", ""), " ", "") &

                                                 "%' or 유형3 like '%" & Replace(Replace(Replace(TextBox1.Text, "'", "''"), ",", ""), " ", "") & "%' ORDER BY 분류2 DESC"

        mySqlCommAND = New SqlCommand(QueryString, DBConn)

        Dim DBread As SqlDataReader = mySqlCommAND.ExecuteReader()

        While DBread.Read()

            With TextBox1

                .AutoCompleteMode = AutoCompleteMode.Suggest

                .AutoCompleteCustomSource.Add(DBread.Item(4).ToString) '검색 결과 값이 유형3가 나오게 하기

                .AutoCompleteSource = AutoCompleteSource.CustomSource

                .Clear()

                .Focus()

            End With

        End While

        DBread.Close()

        mySqlCommAND.Dispose()

        DBConn.Close()

    End Sub

#End Region