mmm... la verdad no estoy muy seguro, pero creo que esto:
  Cita:  Dim str_connection As String = "server=192.168.0.216;uid=sa;pwd=;initial catalog=c2000;Integrated Security=SSPI;"
    Debería ser sin el punto y coma al final. Quedaría así: 
 Cita:  Dim str_connection As String = "server=192.168.0.216;uid=sa;pwd=;initial catalog=c2000;Integrated Security=SSPI"
    Ya que no vas a enviar más información después de Integrated Security=SSPI creo que no es necesario el punto y coma.