Public Sub newSqlCommand()
  Dim myCommand As SqlCommand = new SqlCommand();
  myCommand.CommandTimeout = 25;
  myCommand.CommandType = CommandType.Text;
End Sub