Acceso aBD con ASP

[Maryte]

Hola¡¡¡¡ mi problema es que estoy tratando de hacer una consulta simple que mostrara una tabla pero me ,arca los siguientes errores

"Login failed for user 'TERE\ASPNET'" y "Fill: la propiedad SelectCommand.Connection no se ha inicializado."

el codigo que manejo es el siguiente:

Dim ds As New DataSet
Dim adap As New SqlDataAdapter
Dim cad As String
Try
Dim con As New SqlConnection("Integrated Security=SSPI;Data Source=(local);Initial Catalog=GESTORIA")
con.Open()
Catch ex As Exception
mens.Text = ex.Message.ToString
End Try
com.CommandText = "select * from MUNICIPIOS"
adap.SelectCommand = com
Try
adap.Fill(ds)
Catch ex As Exception
Label5.Text = ex.Message.ToString
End Try
DataGrid1.DataSource = ds.Tables()
con.Close()

Espero q me puedan ayudar ya que es un proyecto muy facil y no se que es lo que me este fallando