Select Random Column And Send Value To Label

I use this connection:
Dim connetionString As String
Dim cnn As SqlConnection
connetionString = "Data Source='" & txtHost.Text & "';Initial Catalog='" & txtDatabase.Text & "';User ID='" & txtUser.Text & "';Password='" & txtSenha.Text & "'"
cnn = New SqlConnection(connetionString)
cnn.Open()
cnn.Close()
How I read to SQL using "SELECT * FROM table ORDER BY rand()", select a random column and send the value "User" and "Password" of this column to Label1 and Label2.