Comments by Jithu Wilson C (Top 1 by date)

The same error happens after changing computer name. The above solution is not possible for me.

Dim cn As New SqlConnection("Data Source=JITHU-PC;Initial Catalog=vbsql;Integrated Security=True")
Firewall is OK
TCP/IP Port is OK.