'cREATE CONNECTION 
'MODULE

Imports System.Data.SqlClient
Module Module1
    Public Con As SqlConnection
    Public cons As String
    Public usertype As String


    Public Sub main()

        cons = "Data Source=127.0.0.1,49166;Network Library=DBMSSOCN;Initial Catalog=packwelldata;User ID=sa;Password=bedarsi;Trusted_Connection=False;"
        Con = New SqlConnection(cons)
        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


Imports System.Data.SqlClient
Public Class TEST
    Dim scAutoComplete As New AutoCompleteStringCollection


'PASTE THE DATAGRIDVIEW_EDITING

    Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing


        If DataGridView1.CurrentCell.ColumnIndex = 0 AndAlso TypeOf e.Control Is TextBox Then
            With DirectCast(e.Control, TextBox)
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.CustomSource
                .AutoCompleteCustomSource = scAutoComplete
            End With
        Else
            With DirectCast(e.Control, TextBox)
                .AutoCompleteMode = Nothing
                .AutoCompleteSource = AutoCompleteSource.CustomSource
                .AutoCompleteCustomSource = Nothing
            End With
        End If
        Con.Close()
    End Sub



   
'PASTE tHE fORM lOAD

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call main()
        Con.Open()

        Dim cmd As New SqlCommand("SELECT network_id FROM tbnetid", 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 i As Integer
        For i = 0 To ds.Tables(0).Rows.Count - 1
            scAutoComplete.Add(ds.Tables(0).Rows(i)("network_id").ToString())
        Next
    End Sub


End Class
