Public Class frmAutores
    Sub New()
        InitializeComponent()
        Dim conexion As String = "server=server; user id=user; Password=pass; Initial Catalog=library;"
        Dim cnn As New Data.SqlClient.SqlConnection(conexion)
        Dim cmd As New Data.SqlClient.SqlCommand("select au_id, au_fname, au_lname, city from authors", cnn)
        'Dim dt As New Data.DataTable
        Dim dRead As Data.SqlClient.SqlDataReader = Nothing
        Try
            cnn.Open()
            dRead = cmd.ExecuteReader
            While dRead.Read
 
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not dRead Is Nothing Then
                dRead.Close()
            End If
            cnn.Close()
            cnn.Dispose()
            cmd.Dispose()
        End Try
    End Sub
End Class