Option Explicit On

Public Class Form1
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim stringa As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        stringa = stringa & "C:\Inetpub\wwwroot\Sms_notify\db_data\sms_notify.mdb"

        cn = New ADODB.Connection
        rs = New ADODB.Recordset

        cn.Open(stringa)
        rs.Open("SELECT * FROM login", cn, 1)
        lblDati.Text = "--> "

        If rs.EOF Then
            lblDati.Text = "Nessun dato"
        Else
            While rs.EOF = False

                lblDati.Text = rs("username")
                
                rs.MoveNext()
            End While
        End If

        cn = Nothing
        rs = Nothing
    End Sub

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

    End Sub
End Class