Access DBase

 Inherits System.Windows.Forms.Form
    Dim myConnection As SqlConnection
    Dim myCommand As SqlCommand
    Dim dr As SqlDataReader
   
    myConnection = New SqlConnection("server=<server_name>;uid=<username>;pwd=<password>")
        Try
            myConnection.Open()
            myCommand = New SqlCommand("Select * from Mal", myConnection)
            dr = myCommand.ExecuteReader()
            Do
                While dr.Read()
                    MessageBox.Show("ID:" & dr(0).ToString())
                   
                End While
            Loop While dr.NextResult
            dr.Close()
            myConnection.Close()
        Catch ex As Exception
        End Try
    End Sub