conexcion VB.net 2005 con SLQ2000 y ini

[Aquaventus]

Hola gasuton no te preocupes por ello estamos aqui para ayudar.
Create una clase en donde puedas obtener la conexion de esta manera :

Código vb:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
 
Public Class Conexion
 
    Dim conexion As SqlConnection
    Public Function Conectar() As SqlConnection
 
        conexion = New SqlConnection _
        (ConfigurationManager.ConnectionStrings("DBconexion").ConnectionString)
 
        Return conexion
 
    End Function
 
End Class
 

y luego dentro de tu form hacer esto :

Código vb:

Imports System.Data
Imports System.Data.SqlClient
 
Public Class usuarios
 
        Dim cnx As New Conexion()
 
    Private Sub usuarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Instancio a la variable sisdb con la clase
        Dim sisdb as SqlConnection = cnx.Conectar()
 
        Dim da As New SqlDataAdapter("select * from usuarios", sisdb)
        Dim ds As New DataSet
 
        'Abrimos la conexion
        sisdb.Open()
        'Llenamos el dataset
        da.Fill(ds)
        'Cerramos la conexion
        sisdb.Close()
 
        DataGridView1.DataSource = ds.Tables(0)
 
    End Sub
End Class
 

Espero te haya aclarado tus dudas. Saludos!.