Hola
manueltibaduiza solo cambiaría unas cositas :
Código vb:
Ver originalDim cad1 As String = "Database=xxxxx;Data Source=xxxxxx;User Id=xxxx;Password=xxxxxx"
Dim query1 As String = "select promedio_ce from promedioarrayanes ORDER BY id DESC "
Dim cnn1 As New SqlConnection(cad1)
Dim da1 As New SqlDataAdapter(query1,cnn1)
Dim dt1 As New DataTable()
da1.Fill(dt1)
Y agrega la referencia
Import System.Data.SqlClient. Saludos!
.