Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Conex As New OleDb.OleDbConnection
Dim Comm As New OleDb.OleDbCommand
Dim str As New OleDb.OleDbDataAdapter

Conex.ConnectionString = strConexion
Comm.Connection = Conex
Comm.CommandText = "SELECT * FROM tabla1 WHERE cedula = '" & TextBox1.Text & "'; "

While strConexion
TextBox2.Text = Comm.CommandText(2).ToString
TextBox3.Text = Comm.CommandText(4).ToString
TextBox4.Text = Comm.CommandText(5).ToString
TextBox5.Text = Comm.CommandText(6).ToString
End While
Conex.Open()
Comm.ExecuteNonQuery()
Conex.Close()

End Sub
End Class

Estoy tratando que colocando la cedula en un textbox apretando el boton buscar me despliegue la informacion en el resto de los textbox que se encuentran en un combobox, pero no me permite hacerlo ya que en la entrada del While me tira un error que dice asi: La conversión de la cadena "Provider=Microsoft.Jet.OLEDB.4.0" en el tipo 'Boolean' no es válida.