encuestas con Vstudio.net

[moNTeZIon]

Dim cn As New OleDb.OleDbConnection()
Dim da As OleDb.OleDbDataAdapter() --> Si luego haces el New, aqui solo lo declaras...

Dim ds As New DataSet()
Dim str As String

str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Encuestas\encuestas.mdb")
cn.ConnectionString = str
cn.Open()
If Not Page.IsPostBack Then

cn = New OleDb.OleDbConnection(str) '--> Esto para que? Ya está abierta...

da = New OleDb.OleDbDataAdapter("select pre_descrip from preguntas", cn) --> Aqui ya puedes poner el objeto conexion directamente...

da.Fill(ds, "preguntas")

Dim fila As DataRow

For Each fila In ds.Tables("preguntas").Rows
Dim col as Datacolumn
For Each col In ds.Tables("preguntas").Columns
//preg_1.Text = fila("pre_descrip")
Console.WriteLine(fila(col))
Next col
Next fila

End If

Te he anotado algunos cambios que veo, pero, qué quieres hacer con este código...
No veo el label...