AutoComplete TextBox using Module

Form Coding:

Imports System.Data
Imports System.Data.SqlClient
Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.TextChanged
        Call main()
        Con.Open()

        Dim cmd As New SqlCommand("SELECT name FROM Table1", Con)
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter(cmd)
        da.Fill(ds, "My List") 'list can be any name u want

        Dim col As New AutoCompleteStringCollection
        Dim i As Integer
        For i = 0 To ds.Tables(0).Rows.Count - 1
            col.Add(ds.Tables(0).Rows(i)("name").ToString())

        Next
        txt1.AutoCompleteSource = AutoCompleteSource.CustomSource
        txt1.AutoCompleteCustomSource = col
        txt1.AutoCompleteMode = AutoCompleteMode.Suggest

        Con.Close()
    End Sub
End Class

Module Coding:

Imports System.Net.Sockets

Imports System.Text

Imports System.Data.SqlClient

Module Module1

    Public Con As SqlConnection

    Public constr As String

    Public usertype As String

    Public Sub main()

      

        constr = "Data Source=SARIBALI-PC\SQLEXPRESS;Initial Catalog=asd;Integrated Security=True;Pooling=False"

        Con = New SqlConnection(constr)

        Try

            Con.Open()

            'MsgBox("Server Connection is Open ! ")

            

            Con.Close()

        Catch ex As Exception

            MsgBox("Sorry Can not open connection ! ")

        End Try

    End Sub

End Module