Yes, connection string wrong.
from VB use something like:
Dim CusInfo2 As SqlConnection = New SqlConnection("Data Source=servername;Initial Catalog=database;Integrated Security=True")
Data Source=servername Change servername for the name of the server SQL is installed.
Initial Catalog=database...