Conexão com banco de dados

'Declaração de variáveis
Dim conn As SqlConnection = New SqlConnection("Data Source=;Initial Catalog=;User ID=;Password=;")
Dim cmd As SqlCommand
Dim dr As SqlDataReader
'Abre conexão, executa a query e guarda o resultado no DataReader
conn.Open()
cmd = New SqlCommand("SELECT nome, telefone FROM bar WHERE mulher and linda", conn)
dr = cmd.ExecuteReader
'Pequeno loop para listar o resultado
If dr.HasRows Then
'O read é obrigatório para preencher o dr e mover para o próximo registro
'Não precisa de movenext xD
Do While dr.Read
ListBox1.Items.Add(dr("nome") & " - " & dr("telefone"))
Loop
End If
'fecha conexão
conn.Close()