15 Then sql_command.CommandTimeout = intTimeout Else sql_command.CommandTimeout = 15 End If conn.ConnectionString = connection_string sql_command.Connection = conn sql_command.CommandText = sql_text conn.Open() daDataAdapter = New SqlClient.SqlDataAdapter(sql_command) daDataAdapter.Fill(ds, strTableName) Catch ex As Exception If caller_name <> "" Then logg("Calling routine : [" & caller_name & "] *** error executing query in execSql_ds, SQL : " & sql_text & " error : " & ex.Message & vbCrLf & "CommandTimeout = " & intTimeout) Else logg("*** error executing query in Balthzar_ExecSql_ds, SQL : " & sql_text & " error : " & ex.Message & vbCrLf & "CommandTimeout = " & intTimeout) End If End Try If conn.State = ConnectionState.Open Then conn.Close() Return ds End Function 2017-11-22" />