Me aparecio este error como lo reparo
El operador '&' no está definido para cadena "<tr><td>" ni para tipo 'Field'.
este es el codigo
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" aspcompat=true %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Página sin título</title>
</head>
<body>
<FORM ACTION="Default.aspx" METHOD="GET" runat=server>
</FORM>
<div>
<%
Dim oConn, strSQL, objRS
oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={SQL Server}; Server=192.168.1.2; Database=dani; UID=gomez; PWD=pelusa1990")
'Response.Write("Conexión con la base de datos conseguida.<br>")
strSQL = "SELECT id_depto, nombre_depto FROM departamentos"
objRS = oConn.Execute(strSQL)
%>
</div>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD><TD> Apellidos </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td>" & objRS("id_depto") & "</td><td>" & objRS("nombre_depto") & "</td></tr>")
objRS.MoveNext
End While
oConn.Close
objRS = Nothing
oConn = Nothing
%>
</table>
</body>